Private Sub Command1_Click()
Dim fd As String
Set fso = CreateObject("Scripting.FileSystemObject")
fd = "C:\x"
Call getFilenm(fd)
MsgBox fn
End Sub
Function getFilenm(fdnm As String)
Dim obFd, fl, sfd
Set obFd = fso.GetFolder(fdnm)
For Each fl In obFd.Files
fn = fn & fl.Name & Chr(10)
Next
If obFd.SubFolders.Count > 0 Then
For Each sfd In obFd.SubFolders
Call getFilenm(sfd.Path)
Next
End If
End Function