VBS Получение количества объектов в папке

[Паразит]

Привет.
Как мне сделать простой скрипт, который будет выводить количество объектов в каталоге.

 set objArgs = WScript.Arguments
 If objArgs.Count <= 0 Then
     WScript.Echo "Я не вижу аргументов"
 else
 objFolder = objArgs(0)
 end if
 'MsgBox objFolder

Set objShellApp = CreateObject("Shell.Application")
Set objItems = objFolder.Items()
Count = objItems.Count
MsgBox objFolder.Self.Path & " " & Count

Или так

 set objArgs = WScript.Arguments
If objArgs.Count <= 0 Then
     WScript.Echo "Я не вижу аргументов"
else
objFolder = objArgs(0)
'MsgBox objFolder

Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.objArgs(0)
Set objItems = objFolder.Items()
Count = objItems.Count
end if
MsgBox objFolder.Self.Path & " " & Count

Как мне создать объект?

 

[лис.хвост]

Как мне создать объект?

какой, для чего?
посчитать хотите файлы и папки в каталоге? в аргументе путь передаете?

set objArgs = WScript.Arguments
If objArgs.Count <= 0 Then
     WScript.Echo "Я не вижу аргументов"
else
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = FSO.GetFolder(objArgs(0))

    Count = objFolder.Files.Count + objFolder.SubFolders.Count
end if
MsgBox Count

@Dragokas, ты телепатией владеешь?)

 

[Паразит]

Задача такая. Я нахожусь в папке. В ней есть другие папки.
Я нажимаю скрипт, и мне выводится окно с количеством файлов в каждой папке.
На один уровень

 

[Dragokas]

Set oFSO = CreateObject("Scripting.FileSystemObject")
sCurFolder = oFSO.GetParentFolderName(WScript.ScriptFullName)

For each oSubFolder in oFSO.GetFolder(sCurFolder).SubFolders
  s = s & oSubFolder.Name & " = " & oSubFolder.Files.Count & vbcrlf
Next

WScript.Echo (s)

@Dragokas, ты телепатией владеешь?)

Иногда бывает, по чёрным пятницам... Сегодня - пятница -))

 

[Паразит]

Спасибо, Dragokas. Ты как всегда лучший.

 

[Паразит]

Dragokas, а как мне обойтись без "WScript." объекта?
Или как мне его создать?
Требует объект

 

[Dragokas]

лис.хвост, теперь я спрошу, ты экстрасенсом подрабатываешь иногда?

Dragokas, а как мне обойтись без "WScript." объекта?

Странный вопрос. Чтобы обойтись без объекта WScript, нужно перестать пользоваться скриптами VBS/JS.

Или как мне его создать?

Его не нужно создавать. Вы уже под ним работаете, после запуска скрипта VBS/JS.

 

[Паразит]

Я использую его в хрени, где используются скрипты, и мне пищет, что теребуется объект WScript.
Получается, что я не использую WSH. Эта оснастка работает напрямую с VBScript.
И поэтому необходимо создавать объект, или использовать другой объект.

 

[Dragokas]

Это из-за последней строки?

WScript.Echo (s)

Замените на что-то другое. Это только пример. Я ведь не знаю, куда дальше Вам нужно направить переменную s.
Эта строка просто выводит результат на экран.

Ещё есть

msgbox s

Еще у Popup:

Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup s,, "Текст заголовка", 4+16

Из-под других языков не получится создать объект WScript.

 

[лис.хвост]

лис.хвост, теперь я спрошу, ты экстрасенсом подрабатываешь иногда?

Исключительно на примерах хладнокровных/мифических)