Скрипт, который находит количество всех файлов в указанной папке. Вывод осуществляется на экран монитора (в окно вывода

@Ronaldoo · Регистрация: 27.03.2013

Author24 — интернет-сервис помощи студентам

Скрипт, который находит количество всех файлов в указанной папке. Вывод осуществляется на экран монитора (в окно вывода).

@Joeymax · 25.04.2014, 12:28

Что уже в гугле забанили или читать руководство лень? Специально через WMI может подвигнет на самообразование

Visual Basic

Option Explicit
 
If InStr(1, WScript.FullName, "cscript") = 0 Then
    WScript.Echo "Запускать только в командной строке " & vbCrLf & vbCrLf _
        "CSCRIPT.EXE " & WScript.ScriptFullName
    WScript.Quit(1)
End If
 
Const sFolder = "share" ' каталог в котором считам файлы
Dim oWMIService, cFiles, vFile, n
 
n = 0
Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set cFiles = oWMIService.ExecQuery("Select * from CIM_DataFile where Path = '\\" & sFolder & "\\'")
 
For Each vFile in cFiles
    Wscript.Echo vFile.Name 
    n = n + 1
Next
WScript.Echo "Количество файлов в каталоге [" & sFolder & "] - " & CStr(n)

@Ronaldoo 6 / 5 / 2 Регистрация: 27.03.2013 Сообщений: 136
		1
	Скрипт, который находит количество всех файлов в указанной папке. Вывод осуществляется на экран монитора (в окно вывода 24.04.2014, 12:23. Показов 2054. Ответов 1 Метки нет (Все метки) Скрипт, который находит количество всех файлов в указанной папке. Вывод осуществляется на экран монитора (в окно вывода). 0

	25.04.2014, 12:28