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

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

null@example.com (Shaman_OS) — Tue, 28 May 2013 21:08:40 +0000

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

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

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

null@example.com (Flasher) — Tue, 28 May 2013 17:19:20 +0000

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

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

null@example.com (brainwasher) — Tue, 28 May 2013 13:38:57 +0000

Доброе день, друзья! Выручайте. Первый раз вижу 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

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