Das funktioniert auch mit Files aber nicht mit Ordnern ?
Code: Alles auswählen
FUNCTION SetFileTime(cFile, aTime)
LOCAL cCreation := aTime[1], cAccess := aTime[3], cWrite := aTime[3]
LOCAL nKernel32Dll:=DllLoad("Kernel32.dll")
LOCAL nh
nH := FOPEN(cFile, FO_WRITE+FO_SHARED ) // funktioniert nicht mit Directory ?
If nKernel32Dll > 0 .AND. nH # -1
DllCall(nKernel32Dll, DLL_STDCALL, 'SetFileTime', nH, @cCreation, @cAccess, @cWrite)
DllUnload(nKernel32Dll)
EndIf
IF nH # -1
FCLOSE(nH)
ENDIF
RETURN NIL