XProfan

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

Proc IO

    Paramètres auftreten$
    Déclarer e%
    e% = %IOResult
    Cas e% <> 0 : MessageBox(auftreten$ +": "+ Str$(e%),"Fehler: IORESULT",48)

ENDPROC

Déclarer v$,d$,z$
Titre de la fenêtre $ProfVer + " - date/Zeit chez Verzeichnissen"
Cls
v$ = "C:\\Temp"
'MkDir v$ : IO("MkDir")
d$ = DToC$(GetFDate$(v$)) : IO("GetFDate$")
z$ = GetFTime$(v$) : IO("GetFTime$")
Imprimer v$ + ", date: " + d$ + ", Zeit: " + z$
v$ = "C:\\Windows"
d$ = DToC$(GetFDate$(v$)) : IO("GetFDate$")
z$ = GetFTime$(v$) : IO("GetFTime$")
Imprimer v$ + ", date: " + d$ + ", Zeit: " + z$
WaitKey
Fin

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