Sub 批量復制文件並改名() '變量聲明
Dim sPathOld As String '源文件夾路徑
Dim sPathNew As String '目標文件夾路徑
Dim sFileNameOld As String '舊文件名
Dim sFileNameNew As String '新文件名
'獲取源文件夾路徑
sPathOld = ThisWorkbook.Path & "\文件\"
'獲取目標文件夾路徑
sPathNew = ThisWorkbook.Path & "\新文件\"
'查找源文件夾中的文件
sFileNameOld = Dir(sPathOld & "*")
'當查找結果存在時不斷循環
Do While sFileNameOld <>""
'設定新文件名
sFileNameNew = sFileNameOld & ".BAK"
'復制文件並改名
FileCopy sPathOld & sFileNameOld, sPathNew & sFileNameNew
'移動文件
'Name sPathOld & sFileNameold As sPathNew & sFileNamenew
'查找下一個文件
sFileNameOld = Dir
Loop
End Sub