home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2003 February / PCWELT_02_2003.ISO / pcwsoft / Script-Tut.exe / scripts / windir.vbs < prev   
Encoding:
Text File  |  2001-01-22  |  219 b   |  7 lines
  1. Option Explicit
  2. Dim MyFiles, MyWinDir
  3.  
  4. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  5. Set MyWinDir = MyFiles.GetSpecialFolder(0)
  6.  
  7. WScript.Echo "Das Windows-Verzeichnis auf diesem Rechner ist " & MyWinDir