' Desktop-Folder holen

DECLARE FUNCTION HoleDesktopPfad$ ()

PRINT "Desktop-Pfad: "; HoleDesktopPfad

FUNCTION HoleDesktopPfad$
  OPEN ENVIRON$("TEMP") + "\~desktop.vbs" FOR OUTPUT AS 1
  PRINT #1, "Option Explicit"
  PRINT #1, "Dim oSh, oFS, oTs"
  PRINT #1, "Set oSh = CreateObject(" + CHR$(34) + "WScript.Shell" + CHR$(34) + ")"
  PRINT #1, "Set oFS = CreateObject(" + CHR$(34) + "Scripting.FileSystemObject" + CHR$(34) + ")"
  PRINT #1, "Set oTs = oFS.CreateTextFile(" + CHR$(34) + ENVIRON$("TEMP") + "\~DTPFAD.TXT" + CHR$(34) + ", True)"
  PRINT #1, "oTs.WriteLine oSh.SpecialFolders(" + CHR$(34) + "Desktop" + CHR$(34) + ")"
  PRINT #1, "oTs.Close"
  PRINT #1, "Set oTs = Nothing"
  PRINT #1, "Set oFS = Nothing"
  PRINT #1, "Set oSh = Nothing"
  CLOSE 1
  SHELL "cscript //NoLogo " + ENVIRON$("TEMP") + "\~desktop.vbs"
  KILL ENVIRON$("TEMP") + "\~desktop.vbs"
  OPEN ENVIRON$("TEMP") + "\~dtpfad.txt" FOR INPUT AS 1
  LINE INPUT #1, dtp$
  CLOSE 1
  KILL ENVIRON$("TEMP") + "\~dtpfad.txt"
  HoleDesktopPfad$ = dtp$
END FUNCTION