XProfan

windowtitle $ProfVer
cls
MkDir "C:\\Temp"
print DToC$(GetFDate$("C:\\Temp"))
print GetFTime$("C:\\Temp")
waitkey
e

Proc IO

    Parámetros auftreten$
    Declarar e%
    e% = %IOResult
    Case e% <> 0 : MessageBox(auftreten$ +": "+ Str$(e%),"Fehler: IORESULT",48)

ENDPROC

Declarar v$,d$,z$
Título de la ventana $ProfVer + " - Datum/Tiempo en Verzeichnissen"
Cls
v$ = "C:\\Temp"
'MkDir v$ : IO("MkDir")
d$ = DToC$(GetFDate$(v$)) : IO("GetFDate$")
z$ = GetFTime$(v$) : IO("GetFTime$")
Imprimir v$ + ", Datum: " + d$ + ", Tiempo: " + z$
v$ = "C:\\Windows"
d$ = DToC$(GetFDate$(v$)) : IO("GetFDate$")
z$ = GetFTime$(v$) : IO("GetFTime$")
Imprimir v$ + ", Datum: " + d$ + ", Tiempo: " + z$
WaitKey
End

windowtitle $ProfVer
cls
imprimir DToC$(GetFDate$($WinPath))
imprimir GetFTime$($WinPath)
waitkey
end