Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetSysDir() As String
  'KPD-Team 1998(!!)
  'URL: http://www.allapi.net/
  'E-Mail: KPDTeam@Allapi.net ???
  'Gibt es bei http://www.soft-ware.net/hobby/programmierung/referenz/download.asp?code=cbccc&pro=p03951
  Dim Puffer As String=Space(255) 'erzeuge einen Puffer
  Dim Ret As Integer=GetSystemDirectory(Puffer, 255) 'System Directory holen
  Function=Left(Puffer, Ret) 'ohne unnötige chr(0) zurückgeben
  Puffer="" 'Puffer leeren
End Function
Print "GetSysDir.Bas 2007 by ytwinky, MD"
Print "Windows System-Verzeichnis: " &GetSysDir()
GetKey