Jeżeli potrzebujesz żeby znaleźć wszystkie podfoldery o podanej nazwie i zebrać informacje o nich :
dim oFS, oFolder
set oFS = WScript.CreateObject("Scripting.FileSystemObject")
set oFolder = oFS.GetFolder("your directory")
ShowFolderDetails oFolder
sub ShowFolderDetails(oF)
dim F
If oF.Name="name of searching folder" Then
wscript.echo oF.Name & ":#Folders=" & oF.Subfolders.count
wscript.echo oF.Name & ":Size=" & oF.Size
wscript.echo oF.Name & ":Path=" & oF.Path
End If
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
