[Iska]

Liberti, на WSH:

читать дальше »

Код:

Option Explicit

Dim strRootFolder
Dim objRootFolder
Dim objFolder


If WScript.Arguments.Count = 1 Then
	strRootFolder = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FolderExists(strRootFolder) Then
			Set objRootFolder = .GetFolder(strRootFolder)
			
			With .CreateTextFile(.BuildPath(strRootFolder, "FolderList.txt"), True, True)
				For Each objFolder In objRootFolder.SubFolders
					.WriteLine objFolder.Name
					.WriteLine objFolder.Size
					.WriteLine objFolder.Files.Count
					.WriteLine
				Next
				
				.Close
			End With
			
			Set objRootFolder = Nothing
		Else
			WScript.Echo "Can't find folder [" & strRootFolder & "]."
		End If
	End With
Else
	WScript.Echo "Usage: wscript.exe " & WScript.ScriptName & " <folder>"
End If

WScript.Quit 0

Сохраните код в файл с расширением .vbs, затем просто перетащите на сохранённый файл искомую папку (например, ту же «D:\RF\PROJECT\TPH»). Результирующий файл будет создан в искомой папке под именем «FolderList.txt».