'########################################################
'### Retrieve list of files from a given folder       ###
'###                                                  ###
'### (c) Dirk Pelzer 2004                             ###
'########################################################

Option Explicit

Dim i
Dim intRet
Dim aryFileList

intRet = EnumerateFiles("C:\Temp", aryFileList)

Select Case intRet
   Case 1 
      wscript.echo "Error: Specified file alreday exists. Please specify a different name." & vbCRLF
      wscript.echo "Script aborted."
      wscript.quit(1)
   Case 2
      wscript.echo "Error: The specified folder was empty."
      wscript.echo "       Please verify that " & strFolder & " contains" & vbCRLF & _
                   "       robocopy logs and you have sufficient permissions." & vbCRLF
      wscript.echo "Script aborted."
      wscript.quit(1)
End Select

wscript.echo "List of files:"

For i = 0 to uBound(aryFileList)
   wscript.echo aryFileList(i)
Next



'*************************************************
' EnumerateFiles
'*************************************************

Function EnumerateFiles(strFolder, aryFileList)
' Returns an array of all files in a specified folder 

   Dim strFileList
   Dim fso, f, f1, fc, s

   strFileList = ""
   Set fso = CreateObject("Scripting.FileSystemObject")

   If NOT (fso.FolderExists(strFolder)) Then
      EnumerateFiles = 1 'Specified folder does not exist
      Set fso = Nothing
      Exit Function
   End If

   Set f = fso.GetFolder(strFolder)
   Set fc = f.Files
   For Each f1 in fc
      strFileList = strFileList & f1.name & ";"
      'wscript.echo "strFileList = " & strFileList
   Next

   If right (strFileList, 1) = ";" Then strFileList = left(strFileList, len(strFileList)-1)
   aryFileList = split (strFileList, ";")

   If uBound(aryFileList) >= 0 then 
      EnumerateFiles = 0 'Files found
   Else
      EnumerateFiles = 2 'No files found
   End If
  
   Set fc = nothing
   Set f = nothing
   Set fso = nothing

End Function