Скрипт, который считает количество файлов в каждой папке, находящихся в данной папке

[Stilet]

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

Так это делается не скриптами а заданиями квот для пользователей на определенную папку. В расшарке для каждого юзера создается своя папка, и для нее в свойствах настраивается квота.

Можно тогда сделать так, что бы данные BAT Файла обновлялись хотя бы раз в 5 минут?

Можно. Поставь его в планировщик задач на 5 минут. Это в панели управления.

[so1idsnake]

Если я попытаюсь поставить BAT файл в планировщик задач, то там самое частое запуск раз в сутки. ОС Windows XP.

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

Можно написать простой скрипт для подсчета числа файлов в каждой вложенной папке, для задержек использовать, например, скрипт во вложении и запускать их через Bat-файл.

То есть опять же этот BAT-файл должно что-то запускать. Я не знаю что.

Нугуглил вот этот форум: http://forum.antichat.ru/showthread.php?t=241939

Там человек предлагает добавить следующий код, что бы установить таймер:

set time=%TIME%
set hour=%time:~0,2%
set min=%time:~3,2%
set /a min=min+2
set time=%hour%:%min%
at %time% "путь к бат файлу"

Я пробовал добавлять это:

@echo off
chcp 1251 > nul
for /f %%i in ('dir C:\Обмен /s /b /a') do (set /a num+=1)
echo %num% files
set time=%TIME%
set hour=%time:~0,2%
set min=%time:~3,2%
set /a min=min+2
set time=%hour%:%min%
at %time% "C:\Обмен"
pause

Но толку никакого.

[Serge_Bliznykov]

Если я попытаюсь поставить BAT файл в планировщик задач, то там самое частое запуск раз в сутки. ОС Windows XP.

поставьте маленькую бесплатную программку nnCron


FYI:
так, просто для вашего сведения,
Вы не пробовали искать нужную Вам программу в интернете?

например, посмотрите:

sharewatch10_x86.zip sharewatch10_x86

ShareWatch
Версия:
Дата отправки: 23/03/2004
Описание:

ShareWatch позволяет увидить, кто законнектился на Ваш компутер и какие
файлы использует. Теперь у Вас будет полное представление, почему диск
пашет, когда Вы ничего не делаете, и если действительно кто-либо
подключён к Вам, Вы сможете моментально его отрубить. Есть много
интересных функций. Программа может стать удобным помощником.

Completed: 23.03.2004 9:31:49
Url: http://stevemiller.net/downloads/sharewatch10_x86.zip
File size: 33285

----------------
Net Share Monitor is the free software to Monitor your Shared Files from unknown users in the network.
http://securityxploded.com/netsharemonitor.php

----------------

Это так, навскидку...

[so1idsnake]

Программа не пойдет. Я поискал в инете, и нашёл сайт: http://www.rusedu.info/index.php?mod...atid=&topic=22

Но почему-то у меня ни одна прога не работает с того сайта. Например взял код для Получение количества файлов папки с помощью FSO

Function ListFiles(ByVal Path As String, Optional ByVal NestedDirs As Boolean) As String()
Dim fso As New Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim fileList As String
Set fld = fso.GetFolder(Path)
fileList = ListFilesPriv(fld, NestedDirs)
ListFiles = Split(fileList, ";")
End Function

Function ListFilesPriv(ByVal fld As Scripting.Folder, ByVal NestedDirs As Boolean) As String
Dim fil As Scripting.File
Dim subfld As Scripting.Folder
For Each fil In fld.Files
ListFilesPriv = ListFilesPriv & ";" & fil.Path
Next
If NestedDirs Then
For Each subfld In fld.SubFolders
ListFilesPriv = ListFilesPriv & ListFilesPriv(subfld, NestedDirs)
Next
End If
End Function

Private Sub Form_Load()
MsgBox UBound(ListFiles("E:\basic\to_vbnet"))
End
End Sub

Вставил его в текстовый файл и поменял расширение на vbs. Запускаю и ошибка, которую вы видите на крине.
Дело в том, что я не имел дело в VB не разу. Я не создавал форму. Я так понимаю без неё никак? И код не переделать, что бы он работал без формы?

[Serge_Bliznykov]

насколько я понимаю, это код не VBS, а VB (Visual Basic)

и, насколько я вижу из названия:

Private Sub Form_Load()

данный код выполняется при загрузке формы...
Вы форму создали? Данный обработчик в коде формы разместили?

Программа не пойдет.

исключительно из любопытства интересуюсь: а почему не пойдёт?

[so1idsnake]

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

насколько я понимаю, это код не VBS, а VB (Visual Basic)

Мне нужно поменять расширение VBS на VB? А как тогда запускать файл?

исключительно из любопытства интересуюсь: а почему не пойдёт?[/QUOTE]
Я не хочу сдаваться

Нашёл ещё один сайт: http://compfaq.ru/Question.aspx?id=6...a-5cc51b1fdcb4

Dim i As Integer
Dim sFile As String
sFile = Dir("c:\myFolder\*.*")
Do Until Len(sFile) = 0
  i = i + 1
  sFile = Dir
Loop
MsgBox "Файлов - " & i

Dim FSO As FileSystemObject
Dim f As Folder

Set FSO = New FileSystemObject
Set f = FSO.GetFolder("c:\myFolder")

MsgBox "Файлов - " & f.Files.Count

Тут что не так? Ошибки появляются тоже. Это не VBS тоже? Если да, то что мне делать?

[Serge_Bliznykov]

Тут что не так? Ошибки появляются тоже. Это не VBS тоже?

а вы заголовки принципиально игнорируете?
там же большими буквами написано:
FAQ / Программирование / Visual Basic
теперь видите, о каком языке программирования идёт речь?

Если да, то что мне делать?

ну, если Вам нужны программы на VB, то нужно скачать и установить Visual Basic (например, версии 6))
либо искать программы на VBS...

вот Вам пример вашего скрипта на VBS

Dim FSO, f 

Set FSO = CreateObject("Scripting.FileSystemObject")

Set f = FSO.GetFolder("c:\myFolder")

MsgBox "Count Files - " & f.Files.Count

только учтите, что он считает только файлы в указанной папке. Подпапки в данном скрипте не обрабатываются...


а во вложении скрипт, который папки обрабатывает рекурсивно, подсчитывая общее количество файлов: countf_subfolder.rar

текст скрипта:

Dim fso
n=0

Set fso = CreateObject("Scripting.FileSystemObject")

Sub ListFolder(curDir)
  n = n + fso.GetFolder(curDir).Files.Count
  For Each s1 in fso.GetFolder(curDir).SubFolders
    If Not s1.attributes=22 Then 
       ListFolder(s1.path)
    End If
  Next
End Sub

ListFolder("C:\myfolder\") ' "C:\myfolder" - изначальная папка, в которой идёт поиск

MsgBox "Общее количество файлов: " & n

[so1idsnake]

Serge_Bliznykov, спасибо, работает! Даже не знаю как отблагодарить!!! С нуля писал?
Не мог бы ты ещё прокоментить строки хоть чуть-чуть. А то не понятно что за цифра 22 и что такое If Not s1.attributes=22 Then

[ViktorR]

Прошу простить за влезание, неудержался

Не игнорируйте рекомендованные книжки.

В приведенном скрипте использована подпрограмма с рекурсией.

Dim fso
n=0

Set fso = CreateObject("Scripting.FileSystemObject")

Sub ListFolder(curDir)               ' Вход в процедуру
  n = n + fso.GetFolder(curDir).Files.Count  ' Подсчет числа файлов в каталоге, имя которого передано в процедуру - curDir
  For Each s1 in fso.GetFolder(curDir).SubFolders ' Цикл, в котором просматриваются все каталоги, обнаруженные в данном каталоге
    If Not s1.attributes=22 Then ' Проверяется, что данный каталог не системный
       ListFolder(s1.path)           ' Повторный вызов этой же процедуры
    End If
  Next
End Sub

Таким образом, процедура выполняет следующую работу:
1. Получает список всех файлов данного каталога и их кол-во суммирует в переменной n;
2. Составляет список всех подкаталогов данного каталога
3. Если список не пуст, то, если каталог не является системным, то прейти к п.1.
4. Иначе завершить работу подпрограммы и перейти на уровень (стека) выше (вернуться в точку вызова).
Т.е. (см. п.3) вновь подсчитывается число файлов и составляется список каталогов.
Так процесс продолжается до тех пор, пока все вложенные каталоги данного каталога не будут просмотрены.
Для понимания картины нарисуйте дерево каталогов и пройдитесь по нему в соотвтетствии со строками подпрограммы ...



Как-то так, ...

[Icabod]

Private Sub Form_Load()

Это бейсик, для него среда нужна, называется Вижуал бейсик. А в vbs не получится этот вставить. немного просто доработать и запашет.