1 Тема от brainwasher

  • brainwasher
  • Гость

Тема: VBS: Скрипт кол.-во файлов по маске и отличие врем. от текущего

Доброе день, друзья! Выручайте. Первый раз вижу vbs, никак не могу разобраться. Есть скрипт, который выбирает кол.-во файлов по части названия, а вот как сделать, чтобы он отбирал файлы из папки с маской, допустим "mz*.txt", и временем создания на сколько-нибудь минут меньше текущего времени, ума не приложу.

вот мой скрипт

Option Explicit

Dim strFolder
Dim objFile
Dim lngCount


strFolder = "c:\1"

With WScript.CreateObject("Scripting.FileSystemObject")
    If .FolderExists(strFolder) Then
        lngCount = 0
        
        For Each objFile In .GetFolder(strFolder).Files
            If UCase(.GetExtensionName(objFile.Name)) = UCase("ini") Then
                lngCount = lngCount + 1
            End If
        Next
        
        WScript.Echo "Found [" & CStr(lngCount) & "] ini files"
    Else
        WScript.Echo "Can't find folder [" & strFolder & "]"
    End If
End With

WScript.Quit 0

Буду очень благодарен за помощь

2 Ответ от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

Re: VBS: Скрипт кол.-во файлов по маске и отличие врем. от текущего

brainwasher
Приведённый скрипт показывает число ini-файлов в папке. Что понимается под отбором файлов?

3 Ответ от Shaman_OS (изменено: Shaman_OS, 2013-05-29 01:09:25)

  • Shaman_OS
  • Гость

Re: VBS: Скрипт кол.-во файлов по маске и отличие врем. от текущего

1. Отбор по маске - можно пойти в сторону RegExp.
2. Отбор по времени - сравнивать objFile.DateCreated cо значением функции Now.

Рекомендую завести себе два хороших файла: script56.chm и script_center.chm
Очень помогают как начинающему разработчику WSH, так и более опытному