12

日付に基づいた名前のファイルを別のフォルダーに移動する必要があります。

ファイル構造は次のとおりです。
ソース: \\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
4

2 に答える 2

26

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"
于 2012-11-14T16:08:21.293 に答える
0

ファイルをコピーして名前を変更するコード

sourceFilePath = "C:\filePath\source.xlsx"
destinationFilePath = "C:\filePath\destination.xlsx"

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile sourceFilePath, destinationFilePath
于 2020-04-30T08:31:41.433 に答える