Изменить дату создания файла

@glosha · Регистрация: 04.11.2013

Студворк — интернет-сервис помощи студентам

Вроде всё правильно делаю,но почему-то дата файла меняться не хочет, что не так?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
void __fastcall TForm1::Button4Click(TObject *Sender)
{       SYSTEMTIME lf;
        FILETIME ftCreationTime;
        AnsiString NameFile;
        NameFile = Form1->ComboBox1->Text;
        int i=0;
        hFile = FindFirstFile(cPath,&winFileData);
        do
        {
                if(AnsiString(winFileData.cFileName) == NameFile) {  
                   ftCreationTime = winFileData.ftCreationTime ;
                   Form1->FileList->Selected[i]=True;
                    lf.wYear=2002;
                    lf.wMonth=11;
                    lf.wDay=15;
                   SystemTimeToFileTime(&lf, &ftCreationTime);
                   SetFileTime(hFile, &ftCreationTime, NULL, NULL);
 
                }
                i++;
        }
        while (FindNextFile(hFile,&winFileData)!=0);
        FindClose(hFile);
}

@volvo · 22.11.2015, 18:22

Чего ж там правильно? Первый параметр SetFileTime:

Сообщение от MSDN

A handle to the file or directory. The handle must have been created using the CreateFile function with the FILE_WRITE_ATTRIBUTES access right

У твоего хендла таких прав нет. Проверил бы ошибку после неудачного вызова SetFileTime:

C++
1
2
3
4
            if(!::SetFileTime(hFile, &ftCreationTime, NULL, NULL))
            {
                ShowMessage(SysErrorMessage(::GetLastError()));
            }

- не было бы таких вопросов.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
    SYSTEMTIME lf;
    FILETIME ftCreationTime;
    AnsiString NameFile;
    NameFile = Form1->ComboBox1->Text;
    int i = 0;
 
    hFile = ::FindFirstFile(cPath, &winFileData);
    do
    {
        if (AnsiString(winFileData.cFileName) == NameFile)
        {
            AnsiString FullPath = ExtractFilePath(AnsiString(cPath)) + NameFile;
 
            // Вот с этим хендлом все прекрасно сработает
            HANDLE file_handle =
                ::CreateFile(FullPath.c_str(), FILE_WRITE_ATTRIBUTES,
                FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, OPEN_EXISTING,
                FILE_ATTRIBUTE_NORMAL, 0);
 
            ftCreationTime = winFileData.ftCreationTime;
            // Form1->FileList->Selected[i] = True;
            ::FileTimeToSystemTime(&ftCreationTime, &lf);
            lf.wYear = 2002;
            lf.wMonth = 11;
            lf.wDay = 15;
            ::SystemTimeToFileTime(&lf, &ftCreationTime);
            if (!::SetFileTime(file_handle, &ftCreationTime, NULL, NULL))
            {
                ShowMessage(SysErrorMessage(::GetLastError()));
            }
            ::CloseHandle(file_handle);
 
        }
        i++;
    }
    while (::FindNextFile(hFile, &winFileData) != 0);
    ::FindClose(hFile);

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .