Обнаружение кол-во файлов указываемого типа в указаной директории

@Sylar · Регистрация: 06.06.2012

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

Можно ли составить скрипт, который будет находить кол-во файлов указанного нами типа в указанной нами папке. Так что бы вывод потом выводился на экран (в окно вывода)?

Добавлено через 19 минут
Я знаю как получить список файлов и их размеров в заданной папке но как его преобразить не понимаю

Visual Basic

msgbox( ShowFileList("c:\pub$") )
 
Function ShowFileList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
s="files in folder " & folderspec & VbCrLf
For Each f1 in fc
s = s & f1.name  & " uses " & f1.size & " bytes."
s = s & VbCrLf
Next
ShowFileList = s
End Function

Добавлено через 14 минут
Скрипт как я понял открывать нужно через сmd. или VBS файлы не обязательно?

Dragokas · 19.03.2014, 14:43

Sylar, а Вам на каком языке написать нужно:
1) VBScript
2) CMD - пакетный файл .bat
?

Приведенный Вами код больше ориентирован на запуск не из командной строки. Сохраняете с расширением .VBS и запускаете.

@Sylar · 20.03.2014, 15:32 **[ТС]**

[B]Dragokas[B]
в VBScript

Dragokas · 20.03.2014, 15:42

Сообщение от Sylar

в указанной нами папке

с подпапками считать или без?

@Sylar · 20.03.2014, 15:51 **[ТС]**

С подпапками

PureBasic

вот есть код как получить список папок и под папок но скомпоновать как их всех не понятно как
 
 ShowFolderList1("c:\pub$")
 
Function ShowFolderList1(folderspec)
Dim fso, f, f1, fc, s
DIM ksubFolders
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
s="FOLDER: " & folderspec & VbCrLf & "subFOLDER is:" & VbCrLf 
ksubFolders=0
For Each f1 in fc
s = s & " " & f1.name 
s = s & VbCrLf
ksubFolders=ksubFolders+1 
ShowFolderList1(folderspec & "\" & f1.name)
Next
 
ShowFolderList = s
 
if ksubFolders = 0 then
s= s & " empty....."
end if
msgbox s
End Function

Dragokas · 20.03.2014, 16:20

Дайте переменным понятные имена тогда и чужая помощь не понадобится:

Visual Basic

option explicit
 
msgbox(GetFilesCount("c:\temp", "txt") )
 
Function GetFilesCount(sFolder, ext)
Dim oFSO, oFolder, oSubFolder, oFile
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sFolder)
For Each oFile in oFolder.Files
    if LCase( oFSO.GetExtensionName( oFile.Path ) ) = Lcase( ext ) then GetFilesCount = GetFilesCount + 1
Next
For Each oSubFolder in oFolder.SubFolders
    GetFilesCount = GetFilesCount + GetFilesCount(oSubFolder.Path, ext)
Next
End Function

Dragokas 18007 / 7708 / 892 Регистрация: 25.12.2011 Сообщений: 11,481 Записей в блоге: 16
	19.03.2014, 14:43	2
	Sylar, а Вам на каком языке написать нужно: 1) VBScript 2) CMD - пакетный файл .bat ? Приведенный Вами код больше ориентирован на запуск не из командной строки. Сохраняете с расширением .VBS и запускаете. 0

@Sylar 2 / 2 / 1 Регистрация: 06.06.2012 Сообщений: 121
	20.03.2014, 15:32 [ТС]	3
	[B]Dragokas[B] в VBScript 0

Dragokas 18007 / 7708 / 892 Регистрация: 25.12.2011 Сообщений: 11,481 Записей в блоге: 16
	20.03.2014, 15:42	4
	Сообщение от Sylar в указанной нами папке с подпапками считать или без? 0

	20.03.2014, 16:20

Обнаружение кол-во файлов указываемого типа в указаной директории

Решение