我需要将一个基于日期的名称的文件移动到另一个文件夹。
文件结构为:
Source: \\network_location\folder\Filename_09-11-2012.txt
目的地: C:\Dump\Filename.txt
源文件总是落后 1 天。我希望在复制文件时重命名该文件。
我尝试使用的代码是:
Sub Copy_And_Rename()
Name "\\network_location\folder\Filename_"+Month(Now())+"-"+Day(Now()-1)+"-"+Year(Now())+".txt" As "C:\Dump\Filename.txt"
End Sub
您可以使用以下命令复制并重命名文件FileSystemObject
像这样:
Set objFSO = CreateObject("Scripting.FileSystemObject")
' First parameter: original location\file
' Second parameter: new location\file
objFSO.CopyFile "C:\Test\folder1\name1.txt", "C:\Test\folder2\name2.txt"
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)