file://.....

Sub WalkFileEx(objFold, Res, Mask)
    On Error Resume Next
    For Each objFld In objFold.SubFolders
        'WScript.Echo objFld.Path
        WalkFileEx objFld, Res, Mask
    Next
    Set objItems = objShell.NameSpace(objFold.Path).Items()
    'objItems.Filter 64+128, Mask ' только файлы; включая скрытые
    For Each objItem In objItems
        i = 0
        i = UBound(Res) + 1
        If Err.Number Then Err.Clear
        ReDim Preserve Res(i)
        Set Res(i) = objItem
    Next
End Sub

Function WalkFilesEx(FolderToWalk, Mask)
    Dim Res()
    If Not objFSO.FolderExists(FolderToWalk) Then
        WalkFoldersEx = Res
        Exit Function
    End If
    Set objTop = objFSO.GetFolder(FolderToWalk)
    WalkFileEx objTop, Res, Mask
    WalkFilesEx = Res
End Function
Set FSO = CreateObject("Scripting.FileSystemObject")
File = "FolderList.htm"
Set File = FSO.OpenTextFile(File, 2,True)
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objItem In WalkFilesEx(".\", "*.*")
    tmp = objItem.Path
    File.writeline tmp&"<br>"  
    'WScript.Echo tmp
Next
WScript.Echo "Done"
WScript.Quit