' ファイルコピーのサンプル

Sub COPY_SAMPLE()

AA = "D:\Program Files\SOURCENEXT\Phantom8\Library\Music CDs\" ' 元ファイル

BB = "E:\" ' 先ファイル

' ファイルをコピー

For n = 1 To 2

A1 = AA & Me.Cells(n, 1)

B1 = BB & Me.Cells(n, 1)

FileCopy A1, B1

Next

End Sub

備忘録