XProfan

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

Proc IO

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

ENDPROC

Declare v$,d$,z$
Window Title $ProfVer + " - date/Time with Verzeichnissen"
Cls
v$ = "C:\\Temp"
'MkDir v$ : IO("MkDir")
d$ = DToC$(GetFDate$(v$)) : IO("GetFDate$")
z$ = GetFTime$(v$) : IO("GetFTime$")
Print v$ + ", date: " + d$ + ", Time: " + z$
v$ = "C:\\Windows"
d$ = DToC$(GetFDate$(v$)) : IO("GetFDate$")
z$ = GetFTime$(v$) : IO("GetFTime$")
Print v$ + ", date: " + d$ + ", Time: " + z$
WaitKey
End

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