XProfan

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

Proc IO

    Parameters auftreten$
    Declare e%
    e% = %IOResult
    Case e% <> 0 : MessageBox(auftreten$ +": "+ Str$(e%),"Fehler: IORESULT",48)

EndProc

Declare v$,d$,z$
WindowTitle $ProfVer + " - Datum/Zeit bei Verzeichnissen"
Cls
v$ = "C:\\Temp"
'MkDir v$ : IO("MkDir")
d$ = DToC$(GetFDate$(v$)) : IO("GetFDate$")
z$ = GetFTime$(v$) : IO("GetFTime$")
Print v$ + ", Datum: " + d$ + ", Zeit: " + z$
v$ = "C:\\Windows"
d$ = DToC$(GetFDate$(v$)) : IO("GetFDate$")
z$ = GetFTime$(v$) : IO("GetFTime$")
Print v$ + ", Datum: " + d$ + ", Zeit: " + z$
WaitKey
End

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