[elakt]

Yashied

Я как раз копал в этом направлении. Что у меня получилось:

Установить время создания файла с точностью до миллисекунды (для файловой системы NTFS):

Код:

#include <Date.au3>

_Main()

Func _Main()
	
	Local $hFile, $tFile, $aTime
	; открываем существующий или создаем новый тестовый файл
	$hFile = _WinAPI_CreateFile(@ScriptDir & "\myTestFile.txt", 3)
	if $hFile = 0 then _WinAPI_ShowError("Unable to create file")
	; устанавливаем время с точностью до миллисекунды (для файловой системы NTFS)
	$tFile = _Date_Time_EncodeFileTime(@MON, @MDAY, @YEAR, @HOUR, @MIN, @SEC, 123)
	$pFile = DllStructGetPtr($tFile)
	_Date_Time_SetFileTime($hFile, $pFile)
	_WinAPI_CloseHandle($hFile)

EndFunc   ;==>_Main

Прочитать время создания файла с точностью до миллисекунды (для файловой системы NTFS):

Код:

#include <Date.au3>

_Main()

Func _Main()
	
	Local $hFile, $tFile, $aTime, $aDate, $val
	; открываем существующий тестовый файл
	$hFile = _WinAPI_CreateFile(@ScriptDir & "\myTestFile.txt", 2)
	if $hFile = 0 then _WinAPI_ShowError("Unable to create file")
	; читаем время создания, модификации и последнего доступа к файлу
	$aTime = _Date_Time_GetFileTime($hFile)
	_WinAPI_CloseHandle($hFile)
	; выводим время Создания файла с точностью до миллисекунды
	$aDate = _Date_Time_FileTimeToArray($aTime[0])
	$val = StringFormat("%04d/%02d/%02d %02d:%02d:%02d,%03d", $aDate[2], $aDate[1], $aDate[0], $aDate[3], $aDate[4], $aDate[5], $aDate[6])
	MsgBox (0, "", "Created ..: " & $val)

EndFunc   ;==>_Main

Но таким образом я могу работать только с ФАЙЛАМИ.

Подскажите, пожалуйста, как можно сделать то же самое для ПАПКИ?