如何在要复制的文件中添加日期戳？

Question

我可以使用下面的代码行复制文件，效果很好。如果目标文件名在复制时包含系统日期，我将非常喜欢。我尝试了很多事情，但无法实现目标。出租车有人帮我在这里吗？

File.Copy（“ \ Computer1 \ mall \ Files \ Computer1.cfg”，“ c：\ ComputerFiles \ Computer1.cfg，True）

Answer 1

您可以使用FileInfo类来设置文件CreationTime，LastAccesstime，LastWriteTime。

Dim fileLocation As String = "c:\ComputerFiles\Computer1.cfg"

Dim fi As New FileInfo(fileLocation)
fi.CreationTime = DateTime.Now
fi.LastAccessTime = DateTime.Now
fi.LastWriteTime = DateTime.Now