home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 November / PCW9911.BIN / sharewar / prx / wscripts / ForEach.exe / ForEach.vbs
Encoding:
Text File  |  1999-08-12  |  242 b   |  10 lines
  1. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  2. Set Folder = MyFiles.GetFolder("c:\")
  3. Set AlleDateien = Folder.Files
  4.  
  5. For Each X in AlleDateien    
  6.    L = L & X.Path & chr(9) & X.DateLastAccessed & chr(13)
  7. Next
  8.  
  9. wscript.echo L
  10.