Public Sub EachFile(path)
Dim fso As New Scripting.FileSystemObject
Dim cf As Scripting.Folder
Dim subf As Scripting.Folder
Dim fl As Scripting.File

Set cf = fso.GetFolder(path)
For Each subf In cf.SubFolders
    EachFile subf.path
Next
For Each fl In cf.Files
'тут ваши действия с файлами
Next
End Sub

Set Fso = CreateObject("Scripting.FileSystemObject")
set oShell= WScript.CreateObject("WScript.Shell")

workdir =    fso.GetFile(WScript.ScriptfullName).ParentFolder  & "\" 

filelist = ""

EachFile workdir


Sub EachFile(path)
Set cf = fso.GetFolder(path)
For Each subf In cf.SubFolders
    EachFile subf.path
Next
For Each fl In cf.Files
 if right(fl.path, 3 ) = "lnk" then
        Set oShellLink = oShell.CreateShortcut(fl.path)
 	filelist = filelist & oShellLink.TargetPath & chr( 10 ) & chr( 13 )
 end if
Next
End Sub

msgbox filelist