directory counting

[vez]

Is there the possibilty to count all visible directories?

[Black Dog]

[face=courier]On 29-03-2004 09:02:43 +0000 vez wrote:

v> Is there the possibilty to count all visible directories?

Alt+Shift+Return (doesn't work for FTP).[/face]

[vez]

No, I mean count the number of visible directories on pane.

[Raymond]

Code: Select all

Set objArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")

For I = 0 to objArgs.Count - 1
	If fso.folderExists( objArgs(I) ) then
		Set folder = fso.GetFolder( objArgs(I) )
		Count = MsgBox("The Number of folders in current Dir is: " & folder.SubFolders.count, 0, """" & folder & """") 'count folders
		'Count = MsgBox("Folders: " & folder.Files.count, 0, """" & folder & """") 'count files
	Else
		'nothing
	End If
Next
'Original by W!ke76(http://www.eforum.de/showthread.php?s=&threadid=1356)

Save it as like CountFolders.vbs. Then add it to StartMenu, fill "Parameters" with ' "%P" '.