home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2003 February / PCWELT_02_2003.ISO / pcwsoft / Script-Tut.exe / scripts / listwindir.vbs < prev    next >
Encoding:
Text File  |  2001-01-22  |  357 b   |  11 lines
  1. Option Explicit
  2. Dim MyFiles, MyWinDir, AllFiles, AllFilesItem, Output
  3.  
  4. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  5. Set MyWinDir = MyFiles.GetSpecialFolder(0)
  6. Set AllFiles = MyWinDir.Files
  7.  
  8. For Each AllFilesItem in AllFiles
  9.     Output = Output & AllFilesItem.Path & ", "
  10. next
  11. WScript.Echo "Dateien in " & MyWinDir & ":" & chr(13) & Output