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