home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2003 February / PCWELT_02_2003.ISO / pcwsoft / Script-Tut.exe / scripts / function.vbs < prev    next >
Encoding:
Text File  |  2001-02-02  |  286 b   |  10 lines
  1. Option Explicit
  2.  
  3. MsgBox "Das Windows-" + chr(13) + "Verzeichnis " + chr(13) + "auf diesem PC 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