CreationTime < TO_LOCALTIME(SUB(SYSTEM_TIMESTAMP(), TIMESTAMP('0000-01-04', 'yyyy-MM-dd')))

…WHERE Attributes NOT LIKE 'D________' AND CreationTime >= TO_LOCALTIME(SUB(SYSTEM_TIMESTAMP(), TIMESTAMP('0000-01-04', 'yyyy-MM-dd')))…

SELECT Extension USING EXTRACT_EXTENSION(Path) AS Extension

SELECT Extension USING EXTRACT_EXTENSION(Path) AS Extension … GROUP BY Extension ORDER BY Extension ASC

…FROM 'E:\Песочница\0099\*.*', 'E:\Песочница\0100\*.*', 'E:\Песочница\0101\*.*'…

… -recurse:0 …

"C:\Program Files\Log Parser 2.2\LogParser.exe" "SELECT EXTRACT_EXTENSION(Path) AS Extension FROM 'E:\Песочница\0099\*.*', 'E:\Песочница\0100\*.*', 'E:\Песочница\0101\*.*' WHERE CreationTime >= TO_LOCALTIME(SUB(SYSTEM_TIMESTAMP(), TIMESTAMP('0000-01-04', 'yyyy-MM-dd'))) AND Attributes NOT LIKE 'D________' GROUP BY Extension ORDER BY Extension ASC" -i:FS -q:ON -oCodepage:866 -recurse:0

Option Explicit

Dim objLogQuery
Dim objFileSystemInputFormat
Dim strQuery
Dim strColumn

Set objLogQuery = WScript.CreateObject("MSUtil.LogQuery")
Set objFileSystemInputFormat = WScript.CreateObject("MSUtil.LogQuery.FileSystemInputFormat")

With objFileSystemInputFormat
    .preserveLastAccTime = True
    .recurse = False
    .useLocalTime = True
End With

strQuery = _
    "SELECT EXTRACT_EXTENSION(Path) AS Extension " & _
    "FROM 'E:\Песочница\0099\*.*', 'E:\Песочница\0100\*.*', 'E:\Песочница\0101\*.*' " & _
    "WHERE CreationTime >= TO_LOCALTIME(SUB(SYSTEM_TIMESTAMP(), TIMESTAMP('0000-01-04', 'yyyy-MM-dd'))) " & _
    "AND Attributes NOT LIKE 'D________' " & _
    "GROUP BY Extension ORDER BY Extension ASC"

With objLogQuery.Execute(strQuery, objFileSystemInputFormat)
    strColumn = .getColumnName(0)
    
    WScript.Echo strColumn
    WScript.Echo "-----------------------------"
    
    Do Until .atEnd()
        With .getRecord()
            If Not .IsNull(strColumn) Then
                WScript.Echo .toNativeString(strColumn)
            Else
                WScript.Echo "(Null)"
            End If
        End With
        
        .moveNext
    Loop
    
    WScript.Echo "-----------------------------"
    
    .close
End With

Set objFileSystemInputFormat = Nothing
Set objLogQuery              = Nothing

WScript.Quit 0

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="*.hrn *.avi"

For Each m1 in Split(mySet," ",-1,1)
    regtxt = regtxt & "\." & m1 & "$|"
Next
regEx.Pattern = Left(regtxt, Len(regtxt)-1)

myDir="d:\games"

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 "Количество файлов: " & i & vbCrLf & st
        st=k+1 & ") " & s(k) & vbCrLf
Next

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Text = Fso.CreateTextFile("c:\log.txt")
    Text.Write strValue
    Text.Close
Fso.DeleteFile strValue

'Created by OldBoa 10:12 01.07.2011
StartTime = Timer
TotalFiles = 0
TotalFolders = 0
RootPath = "w:"
FindMask = "*.mp3"
FilesInFolder RootPath,FindMask
WScript.Echo "Обработано папок: " & TotalFolders
WScript.Echo "Найдено файлов: " & TotalFiles
WScript.Echo "Время работы сценария: " & TimeBySeconds(Timer - StartTime)
Sub FilesInFolder(strFolder,strFile)
	Set objShellApp = CreateObject("Shell.Application")
	Set objFolder = objShellApp.NameSpace(strFolder)
	Set objFolderItems = objFolder.Items()
	objFolderItems.Filter 32, "*"
	If objFolderItems.Count <> 0 Then
		TotalFolders = TotalFolders + objFolderItems.Count
		For Each SubFolder In objFolderItems
			FilesInFolder SubFolder.Path,strFile
		Next
	End If
	objFolderItems.Filter 64+128, strFile
	If objFolderItems.Count <> 0 Then
		TotalFiles = TotalFiles + objFolderItems.Count
		For Each CurrentFile In objFolderItems
			WScript.Echo CurrentFile.Path
		Next
	End If
End Sub
Function TimeBySeconds(ttt)
	hours = ttt\3600
	minutes = (ttt-hours*3600)\60
	seconds = ((ttt-hours*3600)-minutes*60)\1
	TimeBySeconds = NeedNULL(hours) & ":" & NeedNULL(minutes) & ":" & NeedNULL(seconds)
End Function
Function NeedNULL(par)
	If Len(par) < 2 Then
		NeedNULL = "0" & par
	Else
		NeedNULL = par
	End If
End Function

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="*.hrn *.avi"

For Each m1 in Split(mySet," ",-1,1)
    regtxt = regtxt & "\." & m1 & "$|"
Next
regEx.Pattern = Left(regtxt, Len(regtxt)-1)

myDir="d:\games"

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 "Количество файлов: " & i & vbCrLf & st
        st=k+1 & ") " & s(k) & vbCrLf
Next

Set oLogQuery = CreateObject("MSUtil.LogQuery")
Set oFormat = CreateObject("MSUtil.LogQuery.FileSystemInputFormat")
Set oRecordSet = oLogQuery.Execute("SELECT * FROM C:\*.mp3", oFormat)
i = 0
While Not oRecordSet.atEnd
    Set oRecord = oRecordSet.getRecord()
    strValue = oRecord.getValue("Path")
    WScript.Echo strValue
    i = i + 1
    oRecordSet.moveNext
Wend
oRecordSet.Close
WScript.Echo "На диске ""C:"" найдено mp3-файлов: " & i

Option Explicit
'Dim objArgs
Dim strFileName

'If Not WScript.Arguments.Named.Exists("FileName") Then
'    WScript.Echo "Using: " & WScript.ScriptName & " /FileName:<file for find>"
'    WScript.Quit 1
'End If

'strFileName = WScript.Arguments.Named.Item("FileName")

strFileName = "help.txt" ' — имя файла для поиска писать здесь
Dim objFSO
Dim objDrive
ReDim arrPaths(0)
Dim i
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
arrPaths(LBound(arrPaths)) = False
For Each objDrive In objFSO.Drives
If objDrive.DriveType = 2 Then
If objDrive.IsReady Then
FindInSubFolders objDrive.RootFolder, strFileName
End If
End If
Next
If arrPaths(LBound(arrPaths)) Then
'WScript.Echo "" & strFileName & ""
For i = LBound(arrPaths) + 1 To UBound(arrPaths)
'WScript.Echo arrPaths(i)


objFSO.DeleteFile arrPaths(i)


Next
Else
WScript.Echo "Not found paths for file [" & strFileName & "]."
End If
Set objFSO = Nothing
WScript.Quit 0

Sub FindInSubFolders(objFolderForFind, strFileName)
Dim objFolder
'WScript.Echo objFolderForFind.Path
If objFSO.FileExists(objFSO.BuildPath(objFolderForFind, strFileName)) Then
ReDim Preserve arrPaths(Ubound(arrPaths) + 1)
arrPaths(LBound(arrPaths)) = True
arrPaths(UBound(arrPaths)) = objFSO.BuildPath(objFolderForFind, strFileName)
'WScript.Echo "Found file [" & strFileName & "] on folder [" & objFolderForFind.Path & "]"
End If
On Error Resume Next
For Each objFolder In objFolderForFind.SubFolders
If Err.Number = 0 Then
FindInSubFolders objFolder, strFileName
Else
Err.Clear
'WScript.Echo "Can't enumerate subfolders for folder [" & objFolderForFind.Path & "]"
End If
Next
On Error Goto 0
End Sub

Option Explicit


Dim objFSO
Dim objDrive
Dim strFileNameForFind
Dim boolDone


strFileNameForFind = "help.txt"                                    ' Имя файла для поиска.

Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
Set objDrive = objFSO.GetDrive("h:")					' Буква Раздела

WScript.Echo "Find on drive " & objDrive.DriveLetter & ":..."

boolDone = False
ScanSubFolders objDrive.RootFolder, strFileNameForFind               ' Вызываем процедуру поиска
                                                                     ' для корневой папки этого тома.
                                                                     ' Обработка вложенных папок будет
                                                                     ' вестись рекурсивно.

Set objDrive = Nothing
Set objFSO   = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub ScanSubFolders(objFolder, strFileName)
    Dim objSubFolder
    Dim strFullFileName
    
                                         ' Выводим путь обрабатываемой папки (для
                                                                     ' отладки; имеет смысл закомментировать).
    
    strFullFileName = objFSO.BuildPath(objFolder.Path, strFileName)  ' Строим полный путь к файлу.
    
    If objFSO.FileExists(strFullFileName) Then                       ' Файл существует?
        WScript.Echo vbTab & "Found as [" & strFullFileName & "], copying..."
        
                                                                     ' Копируем файл
        objFSO.CopyFile objFSO.BuildPath("d:\", strFileName), strFullFileName, True
        boolDone = True
        
        Exit Sub
    End If
    
    On Error Resume Next                                             ' Обрабатываем ошибки, возможные в случае,
                                                                     ' когда нет доступа к содержимому папки
                                                                     ' (пример - «System Volume Information».
    For Each objSubFolder In objFolder.SubFolders
        If Err.Number = 0 Then                                       ' Удалось получить доступ к содержимому папки?
            On Error Goto 0                                          ' Восстанавливаем стандартную обработку ошибок
            
            If Not boolDone Then
                ScanSubFolders objSubFolder, strFileName             ' Вызываем процедуру поиска для каждой из подпапок.
            End If
        Else                                                         ' Если не удалось —
            Err.Clear                                                ' сбрасываем состояние ошибки,
            On Error Goto 0                                          ' восстанавливаем стандартную обработку ошибок и движемся дальше.
            WScript.Echo "Can't enumerate subfolders for folder [" & objFolder.Path & "]."
        End If
    Next
End Sub

'Created by OldBoa 10:28 29.10.2010
On Error Resume Next
Set oFtp = CreateObject("ChilkatFTP.ChilkatFTP")
If Err.Number <> 0 Then
    MsgBox "Не установлен бесплатный COM-сервер ChilkatFTP." & _
        VbCrLf & "http://www.chilkatsoft.com/ftp-activex.asp/"
    WScript.Quit
End If
CheckDR
On Error GoTo 0
fDate = NeedNULL(Year(Date)) & NeedNULL(Month(Date)) & NeedNULL(Day(Date))
Destination = "F:\CureIT\"
LogPath = "F:\CureIT\cureit_download.log"
Set Dict = CreateObject("Scripting.Dictionary")
Set FSO = CreateObject("Scripting.FileSystemObject")
With oFtp
    .Hostname = "ftp.drweb.com"
    .Username = "anonymous"
    .Password = "cureit_download.vbs"
End With
CheckOnError(oFtp.Connect())
CheckOnError(oFtp.ChangeRemoteDir("pub/drweb/cureit"))
Set objXMLDoc = CreateObject("Microsoft.XMLDOM")
objXMLDoc.async = False
CurrentDirListing = oFtp.GetCurrentDirListing("*.*")
objXMLDoc.loadXML(CurrentDirListing)
Set remoteDir = objXMLDoc.getElementsByTagName("dir")
For Each Dir In remoteDir
    For Each Child In Dir.childNodes
        CurrentString = Trim(Child.NodeValue)
        CurrentDate = Left(CurrentString,8)
        CurrentTime = Right(CurrentString,6)
        If StrComp(CurrentDate,fDate) = 0 Then
            If Not Dict.Exists(CurrentDate) Then
                Dict.Add CurrentDate, CurrentTime
            Else
                ExistsTime = Dict.Item(CurrentDate)
                ExistsHour = Left(ExistsTime,2)
                ExistsMinute = Mid(ExistsTime,3,2)
                CurrentHour = Left(CurrentTime,2)
                CurrentMinute = Mid(CurrentTime,3,2)
                If ExistsHour < CurrentHour Then
                    Dict.Item(CurrentDate) = CurrentTime
                End If
                If ExistsHour = CurrentHour Then
                    If ExistsMinute < CurrentMinute Then
                        Dict.Item(CurrentDate) = CurrentTime
                    End If
                End If
            End If
        End If
    Next
Next
If Dict.Count > 0 Then
    For i=0 To Dict.Count-1
        Keys = Dict.Keys
        Items = Dict.Items
        FinalRemoteDir = Keys(i) & Items(i)
        Set objShellApp = CreateObject("Shell.Application")
        Set objFolder = objShellApp.NameSpace(Destination)
        Set objFolderItems = objFolder.Items()
        FileName = "cureit_" & FinalRemoteDir & ".exe"
        CheckOnError(oFtp.ChangeRemoteDir(FinalRemoteDir))
        objFolderItems.Filter 64+128, FileName
        If objFolderItems.Count = 0 Then
            CheckOnError(oFtp.GetFile("cureit.exe",Destination & FileName))
        Else
            CurrentDirListing = oFtp.GetCurrentDirListing("*.*")
            'WScript.Echo oFtp.GetCurrentRemoteDir()
            objXMLDoc.loadXML(CurrentDirListing)
            Set remoteDir = objXMLDoc.getElementsByTagName("file")
            For Each Dir In remoteDir
                For Each Child In Dir.childNodes
                    Select Case Child.NodeName
                        Case "size" FileSize = Child.firstChild.nodeValue
                    End Select
                Next
            Next
            Set CureITFile = FSO.GetFile(Destination & FileName)
            If StrComp(CureITFile.Size,Trim(FileSize)) <> 0 Then
                CheckOnError(oFtp.GetFile("cureit.exe",Destination & FileName))
            End If
        End If
        CheckOnError(oFtp.ChangeRemoteDir(".."))
    Next
End If
oFtp.Disconnect
ClearOldCureIt
Function NeedNULL(par)
    If Len(par) < 2 Then
        NeedNULL = "0" & par
    Else
        NeedNULL = par
    End If
End Function
Sub ClearOldCureIt
    Set AFolder = FSO.GetFolder(Destination)
    For Each AFile in AFolder.Files
        If DateDiff("D", AFile.DateLastModified, Now) > 2 Then 
            If FSO.GetExtensionName(AFile.Path) = "exe" Then
                AFile.Delete True
            End If
        End If 
    Next
End Sub
Function CheckDR
    Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT Name, CommandLine, ProcessID FROM Win32_Process WHERE " & _
        "Name LIKE '%[cw]script.exe' AND CommandLine LIKE '%[cw]script%" & WScript.ScriptName & "%'", "WQL", 0)
    If collSWbemObjectSet.Count > 1 Then
        WScript.Quit
    End If
End Function
Sub WriteToLog(rectype,logtext)
    If FSO.FileExists(LogPath) then
        Set logfile = FSO.GetFile(LogPath)
        Set TextStream = logfile.OpenAsTextStream(8)
        Begin = ""
    Else
        Set TextStream = FSO.CreateTextFile(LogPath)
        Begin = "Дата;Время;Тип записи;Комментарий" & VbCrLf
    End if
    TextStream.WriteLine Begin & Date & ";" & Time & ";" & rectype & ";" & logtext
    TextStream.Close
End Sub
Sub CheckOnError(success)
    If (success <> 1) Then
        WriteToLog "Ошибка",Replace(oFtp.LastErrorText,VbCrLf,"")
        WScript.Quit
    End If
End Sub