Szukałem wszędzie listy plików z całą strukturą katalogów od zadanego miejsca na dysku, znalazłem jedynie listę plików lub samą listę podfolderów, tu prezentuję pełny skrypt który listuje całą strukturę z plikami i podkatalogami
Dim oFS, oFolder
Dim objexcel, r, lnameArray, lname, nameLength
set oFS = WScript.CreateObject("Scripting.FileSystemObject")
set oFolder = oFS.GetFolder("C:\temp") 'wpisz swoją nazwę katalogu
Set objExcel = createobject("Excel.application")
objexcel.Workbooks.add
objexcel.Cells(1, 1).Value = "Folder Name"
objexcel.Cells(1, 2).Value = "# File names"
objexcel.Visible = True
Wscript.Sleep 300
r=2
ShowFolderDetails oFolder, r
'raport zapisany zostanie do pliku c:\FolderReport.xls
objexcel.ActiveWorkbook.SaveAs("c:\FolderReport.xls")
objexcel.Quit
Function ShowFolderDetails(oF,r)
Dim F
objexcel.Cells(r, 1).Value = oF.Name
r = r+1
for each F in oF.Subfolders
ShowFolderDetails F, r
Set colFiles = F.Files
For Each objFile in colFiles
objexcel.Cells(r, 2).Value = objFile.Name
r = r+1
Next
next
End Function
:::::::::::::::::
Słowa kluczowe : Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls, Lista plikow i folderow xls, vbscript, vbs, vbscript list folders and files to xls
















