Question

我写下面的代码来复制文件并重命名文件名，但是我现在遇到的问题是我需要选择最后一个文件（基于上载日期）然后重命名文件，下面的代码更改了放置在其中的所有文件文件夹，无论上传日期如何，如果有简单的代码上传文件，请检查文件是否存在，然后显示消息（上传成功，上传失败（文件重复））

Dim directory = Server.MapPath("App_Data/text/")

For Each filename As String In IO.Directory.GetFiles(directory, "*", IO.SearchOption.AllDirectories)

        Dim fName As String = IO.Path.GetFileName(filename)

        If fName.ToString Like "*Cust*" Then

            System.IO.File.Delete(Server.MapPath("App_Data\test\Customer.txt"))
            My.Computer.FileSystem.CopyFile(Server.MapPath("App_Data\text\" & fName), Server.MapPath("App_Data\test\" & fName))
            My.Computer.FileSystem.RenameFile(Server.MapPath("App_Data\test\" & fName), "Customer.txt")

Answer 1

您可以使用以下代码查找文件的创建日期和上次修改日期：

Dim creation as DateTime = File.GetCreationTime(@"C:\test.txt")
Dim modification as DateTime = File.GetLastWriteTime(@"C:\test.txt")

或导入System.IO并使用以下代码：

Dim fi as FileInfo = new FileInfo("path")
Dim created = fi.CreationTime
Dim lastmodified = fi.LastWriteTime

我认为第二种更好，因为您可以轻松地将它们放入集合中，然后对其进行排序或比较。

根据上传日期重命名文件名

1 个答案: