home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2001 April / PC-WELT 4-2001.ISO / software / wsh / function.exe / function.vbs
Encoding:
Text File  |  2001-01-22  |  261 b   |  10 lines
  1. Option Explicit
  2.  
  3. MsgBox "Das Windows-Verzeichnis auf diesem Rechner ist " & WinDir
  4.  
  5. Function WinDir
  6. Dim MyFiles, MyWinDir
  7. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  8. Set MyWinDir = MyFiles.GetSpecialFolder(0)
  9. WinDir = MyWinDir
  10. End Function