' Volle 32-Bit-Kommandozeilenshell nutzen

OPEN ENVIRON$("TEMP") + "\~BEF.BAT" FOR OUTPUT AS 1
PRINT #1, "dir " + CHR$(34) + ENVIRON$("SYSTEMDRIVE") + "\Dokumente und Einstellungen" + CHR$(34) + " >" + ENVIRON$("TEMP") + "\~OUT.TXT"
CLOSE 1
IF ENVIRON$("OS") <> "" THEN
  ' Windows NT 4.0/2000/XP
  SHELL "cmd /c " + ENVIRON$("TEMP") + "\~BEF.BAT"
ELSE
  ' Windows 95/98/ME
  SHELL ENVIRON$("TEMP") + "\~BEF.BAT"
END IF
KILL ENVIRON$("TEMP") + "\~BEF.BAT"
OPEN ENVIRON$("TEMP") + "\~OUT.TXT" FOR INPUT AS 1
WHILE NOT EOF(1)
  LINE INPUT #1, z$
  PRINT ">"; z$
WEND
CLOSE 1
KILL ENVIRON$("TEMP") + "\~OUT.TXT"