|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Мониторинг файлов в каталоге |
|
VBS/WSH/JS - Мониторинг файлов в каталоге
|
Новый участник Сообщения: 1 |
Профиль | Отправить PM | Цитировать Добрый день.
Есть скрипт, для мониторинга файлов в папке и выдачи сообщения с их кол-вом на экран, а так же сообщение с именем каждого файла. Подскажите, что выкинуть из скрипта, чтобы выдавалось только сообщение о кол-ве файлов и все. Dim fso,mySet,myDir,st Dim s() i=0 Dim regEx, Match, Matches, regtxt Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True mySet="*.txt *.gif" For Each m1 in Split(mySet," ",-1,1) regtxt = regtxt & "\." & m1 & "$|" Next regEx.Pattern = Left(regtxt, Len(regtxt)-1) myDir="c:\12345" Set fso = CreateObject("Scripting.FileSystemObject") Sub ListFolder(curDir) On Error Resume Next For Each f1 in fso.GetFolder(curDir).Files If Err.Number = 0 Then If regEx.Test(f1) Then ReDim Preserve s(i+1) s(i) = f1.path i=i+1 End If End If Next Err.Clear For Each s1 in fso.GetFolder(curDir).SubFolders If Err.Number = 0 Then ListFolder(s1.path) End If Next Err.Clear On Error Goto 0 End Sub ListFolder(myDir) For k=0 To i-1 MsgBox "В каталоге С:\12345 имеются файлы *.txt, *jpg. Количество файлов: " & i & vbCrLf & st st=k+1 & ") " & s(k) & vbCrLf Next |
|
Отправлено: 20:09, 27-07-2013 |
Пользователь Сообщения: 124
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 17:15, 03-08-2013 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Любой язык - [решено] Архивирование файлов в каталоге | Tonny_Bennet | Скриптовые языки администрирования Windows | 53 | 11-01-2015 13:11 | |
CMD/BAT - [решено] Вывести имена файлов *.txt в каталоге | VALET93 | Скриптовые языки администрирования Windows | 34 | 12-04-2014 15:36 | |
CMD/BAT - [решено] узнать количество файлов в каталоге через CMD | toro | Скриптовые языки администрирования Windows | 5 | 04-12-2013 06:31 | |
Любой язык - [решено] Распределение файлов в каталоге | Тишина | Скриптовые языки администрирования Windows | 2 | 26-04-2013 17:09 | |
Разное - [решено] Как получить список файлов находящихся в каталоге? | Kocuk | Microsoft Windows 2000/XP | 8 | 27-02-2012 23:25 |
|