Question

我刚刚复制了一个文件夹并将日期附加到文件夹的名称。我想现在将文件复制到新创建的文件夹中的子文件夹中。这是我最初复制文件夹并附加日期的原因：

Dim regDate As Date = Date.Now()
Dim strDate As String = regDate.ToString("MM\/dd\/yyyy")
fso = CreateObject("Scripting.FileSystemObject")
fso.copyFolder("C:\VB_Testing_Script\PB_Local\InterChange-",
"C:\VB_Testing_Script\PB_Local\InterChange-" & Format(regdate, "MMddyy"))

输出是一个名为InterChange-022614的文件夹在该文件夹中有另外两个文件夹（appl和mar）

在文件名中创建日期文件夹后，我需要将文件复制到app文件夹中。

Answer 1

如果要创建文件夹，请使用IO.Directory.CreateDirectory。如果要复制文件，请使用IO.File.Copy。在文件和文件夹名称中使用日期和/或时间时，应始终按单位数递减单位。这样，字母顺序和时间顺序将一致。考虑到这一点，在附加当前日期时复制文件将如下所示：

Dim fileName = Path.GetFileNameWithoutExtension(sourceFilePath)
Dim extension = Path.GetExtension(sourceFilePath)
Dim destinationFilePath = Path.Combine(destinationFolderPath,
                                       String.Format("{0}_{1:yyyyMMdd}{2}",
                                                     fileName,
                                                     Date.Now,
                                                     extension))

File.Copy(sourceFilePath, destinationFilePath)

如何将文件复制到新创建的文件夹中，并将当前日期附加到foldername

1 个答案: