如何修改每一个文件的时间？

Posted 2023-04-19

我需要的是修改文件时间的软件，但是修改的时间不能统一。每一个文件都有不同的时间。

用修改文件时间的方法来加密文件
江立
在Delphi中获取和修改文件的时间

　　本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法。

熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息。在属性菜单中会列出该文件的创建时间、修改时间和访问时间。这些信息常常是很有用的，它们的设置一般都是由操作系统（也就是由Dos/Windows等等）自动完成的，不会让用户轻易修改。

这里，我向大家介绍在Delphi中如何实现文件时间的获取和修改方法。Delphi中提供了很完备的Windows API函数的调用接口，可以方便的进行高级Windows编程。利用Delphi中的FindFirst函数可以得到一个文件的属性记录，该记录中的FindData域中就记载了详细的文件时间信息。然而遗憾的是，FindData中的时间信息是不能直接得到的。因此，有人（编者按：很遗憾不知此人姓名）编写了一个转换函数来完成文件时间格式的转换。下面给出了具体的实现方法，仅供参考：
function CovFileDate(Fd:_FileTime):TDateTime;
转换文件的时间格式
var
Tct:_SystemTime;
Temp:_FileTime;
begin
FileTimeToLocalFileTime(Fd,Temp);
FileTimeToSystemTime(Temp,Tct);
CovFileDate:=SystemTimeToDateTime(Tct);
end;
有了上面的函数支持，我们就可以获取一个文件的时间信息了。以下是一个简单的例子：
procdeure GetFileTime(const Tf:string);
获取文件时间，Tf表示目标文件路径和名称
const
Model=yyyy/mm/dd,hh:mm:ss; 设定时间格式
var
Tp:TSearchRec; 申明Tp为一个查找记录
T1,T2,T3:string;
begin
FindFirst(Tf,faAnyFile,Tp); 查找目标文件 T1:=FormatDateTime(Model,
CovFileDate(Tp.FindData.ftCreationTime)));
返回文件的创建时间
T2:=FormatDateTime(Model,
CovFileDate(Tp.FindData.ftLastWriteTime)));
返回文件的修改时间
T3:=FormatDateTime(Model,Now));
返回文件的当前访问时间
FindClose(Tp);
end;
设置文件的时间要复杂一些，这里介绍利用Delphi中的DataTimePicker组件来辅助完成这一复杂的操作。下面的例子利用了四个DataTimePicker组件来完成文件创建时间和修改时间的设置。注意：文件的访问时间用修改时间来代替。使用下面的例子时，请在您的Form上添加四个DataTimePicker组件。其中第一和第三个DataTimePicker组件中的Kind设置为dtkDate，第二个和第四个DataTimePicker组件中的Kind设置为dtkTime.
procedure SetFileDateTime(const Tf:string);
设置文件时间，Tf表示目标文件路径和名称
var
Dt1,Dt2:Integer;
Fs:TFileStream;
Fct,Flt:TFileTime;
begin
Dt1:=DateTimeToFileDate(
Trunc(Form1.DateTimePicker1.Date) + Frac(Form1.DateTimePicker2.Time));
Dt2:=DateTimeToFileDate(
Trunc(Form1.DateTimePicker3.Date) + Frac(Form1.DateTimePicker4.Time));
转换用户输入在DataTimePicker中的信息
try
FS := TFileStream.Create(Tf, fmOpenReadWrite);
try
if DosDateTimeToFileTime(LongRec(DT1).Hi, LongRec(DT1).Lo, Fct) and
LocalFileTimeToFileTime(Fct, Fct) and
DosDateTimeToFileTime(LongRec(DT2).Hi, LongRec(DT2).Lo, Flt) and
LocalFileTimeToFileTime(Flt, Flt)
then SetFileTime(FS.Handle,
@Fct, @Flt, @Flt);
设置文件时间属性
finally
FS.Free;
end;
except
MessageDlg(日期修改操作失败！,
mtError, [mbOk], 0);
因为目标文件正在被使用等原因而导致失败
end;
end;
以上简单介绍了文件时间属性的修改方法，请注意：修改文件时间的范围是从公元1792年9月19日开始的，上限可以达到公元2999年或更高。另外，请不要将此技术用于破坏他人文件等非正当途径。 参考技术A 把电脑的时间给了就可以.然后在保存.如果是老文件.想变新文件,就必须另存.

如何在红移光谱中创建一个外部表，其中文件位置每天都会改变？

【中文标题】如何在红移光谱中创建一个外部表，其中文件位置每天都会改变？

【英文标题】：How to creating an external table in redshift spectrum, where file location will change everyday?

【发布时间】：2019-03-12 08:58:05

【问题描述】：

我们计划使用 AWS 红移频谱从另一个 AWS 账户的 S3 获取数据。但 Source 告知桶密钥每天都会更改，并且最新数据将在桶密钥位置以最新时间戳提供。 谁能建议创建此外部表的最佳方法是什么？

【问题讨论】：

您好！欢迎来到 ***！请阅读Help Center中的How do I ask a good question?。

我认为您需要每天重新创建光谱表。

【参考方案1】：

Spectrum 中的外部表可以配置为指向 S3 中的前缀（类似于普通文件系统中的文件夹），或者您可以使用清单文件来指定该表应包含的文件的确切列表（它们可以甚至驻留在不同的 s3 存储桶中）。

因此，您必须每天创建表格并将其指向正确的位置。如果所有文件都以相同的 s3 前缀结尾，则必须使用清单文件来指定当前文件。

与问题没有直接关系的提示： 您还可以做的是每天创建名称中带有时间戳的表，并且每天创建一个指向最新表的视图。这样就可以很容易地查看历史数据，或者您将这些数据用于例如。机器学习 - 将输入固定到不可变的数据版本，以便您可以可重复地获取训练数据 - 但这当然取决于您的要求。

【讨论】：

谢谢，我已经开始实现你在提示部分提到的选项了:)