Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

List all files under application path

Sub FileList()   Dim File As Variant   With Application.FileSearch     .LookIn = "C:\"     .FileType = msoFileTypeAllFiles     .Execute     For Each File In .FoundFiles       MsgBox File     Next File   End With End Sub