Тема: VBS: Создание каталога ссылок
Доброго времени суток.
Столкнулся с проблемой в VBS:
1. Перебор файлов в текущем каталоге и вложенным подкаталогам - здесь проблем нет.
2. Получение этого списка - все Ок.
3. на основе полученного списка создание файла в html формате с ссылками UNC для быстрого перехода - зашел в тупик.
Помогите пожалуйста, весь мозг сломал, попробовал через <a href="url, не выходит нет перехода.
Все это в рамках локальной сети, полученные файлы ссылками должны находится там где созданы т.е. текущее место запуска скрипта.
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
