Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Displaying a list of files in a directory

Sub ListFiles2()          With Application.fileSearch         .NewSearch         .LookIn = "c:\windows\desktop\"         .FileName = "*.*"         .SearchSubFolders = False         .Execute         For i = 1 To .FoundFiles.Count             Debug.Print .FoundFiles(i)             Debug.Print FileLen(.FoundFiles(i))             Debug.Print FileDateTime(.FoundFiles(i))         Next i     End With End Sub