' Skrypt wyszukujacy puste pliki.

' W zaleznosci od wyboru usuwa/przenosi/kasuje lub tylko wyswietla je

'

' Nalezy stworzyc katalog C:tmp

'

' (C) 2004 Seth



If msgbox("Czy napewno chcesz uruchomic skrypt wyszukujacy pliki ?", vbYesNo) = vbNo Then

  WScript.Quit

End If





On Error Resume Next



Dim objFSO, colDrives, objDrive, objFolder, colFiles, objFile, colSubfolders, objSubfolder, objExplorer, movePath, mode

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objExplorer = CreateObject("InternetExplorer.Application")



mode = "podgląd"



If msgbox("Czy chcesz uzyskać tylko podgląd wyszukanych plików ?", vbYesNo) = vbNo Then

  If msgbox("Czy chcesz usunąć wyszukane pliki ?", vbYesNo) = vbYes Then

    mode = "usuwanie"

  Else

    If msgbox("Czy chcesz przenieść wyszukane pliki do folderu C:tmp ?", vbYesNo) = vbYes Then

      mode = "przenoszenie"

    Else

      If msgbox("Czy chcesz skojowac wyszukane pliki do folderu C:tmp ?", vbYesNo) = vbYes Then

        mode = "kopjowanie"

      End If

    End If

  End If

End If



objExplorer.Navigate "about:blank"

objExplorer.ToolBar = False

objExplorer.StatusBar = True

objExplorer.Width = 400

objExplorer.Height = 300

Do While (objExplorer.Busy)

    Wscript.Sleep 200

Loop

objExplorer.Visible = True



PrintText "<b>Wybrano tryb: " & mode & "</b><br /><br />"



Set colDrives = objFSO.Drives



For Each objDrive In colDrives

  If objDrive.IsReady Then

    DoSearch objDrive

  End If

Next



If MsgBox( "Czy chcesz zamknąc okno Internet Explorera ?", vbYesNo ) = vbYes Then

  objExplorer.Quit

  Set objExplorer = Nothing

End If



Set objFSO = Nothing

Set colDrives = Nothing

Set objDrive = Nothing

Set objFolder = Nothing

Set colFiles = Nothing

Set objFile = Nothing

Set colSubfolders = Nothing

Set objSubfolder = Nothing



Sub DoSearch(Path)

  Set objFolder = objFSO.GetFolder(Path)

  Set colFiles = objFolder.Files



  For Each objFile In colFiles

    If objFile.Size = 0 Then ' tutaj sprawdzamy rozmiar pliku

      movePath = "C:tmp" & objFile.Name



      PrintText objFile.ParentFolder & "" & objFile.Name



      Select Case mode

        case "usuwanie"

          objFile.Delete

          PrintText "Usunieto"

        case "przenoszenie"

          objFile.Move movePath

          PrintText "Przeniesiony do " & movePath & "<br />"

        case "kopjowanie"

          objFile.Copy movePath

          PrintText "Skopjowany do " & movePath & "<br />"

      End Select

    End If

  Next



  Set colSubfolders = objFolder.SubFolders



  For Each objSubfolder In colSubfolders

    DoSearch objSubfolder.Path

  Next

End Sub



Sub PrintText(Text)

  objExplorer.Document.Write Text & "<br /><br />" & vbCrLf

End Sub