home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2000 January / PCW0001.ISO / software / prx / datsys / fragment.exe / fragment.vbs
Encoding:
Text File  |  1999-10-27  |  718 b   |  25 lines
  1. set FShell = CreateObject("wscript.shell")
  2. set FSys=CreateObject("Scripting.FileSystemObject")
  3.  
  4. i=inputbox("Laufwerk oder Ordner angeben")
  5. outfile = "c:\fragment.bat"
  6. set output=Fsys.CreateTextFile(outfile)
  7. output.writeline "@echo off"
  8. output.writeline i & "\"
  9.  
  10. set drive = FSys.GetFolder(i)
  11. SubFolders drive
  12. FShell.Run "command /c c:\fragment.bat"
  13.  
  14. Sub SubFolders(ByVal AFolder)
  15.     Set MoreFolders = AFolder.SubFolders
  16.      For Each TempFolder In MoreFolders
  17.             output.writeline "echo --- Verzeichnis: " & tempfolder & " ---"
  18.             output.Writeline "cd " & chr(34) & tempfolder
  19.             output.writeline "scandisk /f *.*"
  20.             output.writeline "pause > nul"
  21.             SubFolders TempFolder
  22.      Next 
  23. End Sub
  24.  
  25.