
ファイルを移動する方法は複数あります!

ここでは私が可読性が良いと考える方法を
記載します!
VBAコード
「FileSystemObject」の「MoveFile」でファイルを移動します。
Option Explicit
Sub sample()
Dim fso As Object
Dim fileFullPath As String
Dim folderPath As String
'変更前のファイルのパスを指定
fileFullPath = "C:\Users\user\Desktop\aiueo.txt"
'移動先のフォルダパス
folderPath = "C:\Users\user\Desktop\folder_001\"
Set fso = CreateObject("Scripting.FileSystemObject")
'ファイルを移動
Call fso.MoveFile(fileFullPath, folderPath)
'後片付け
Set fso = Nothing
End Sub
実行結果
ファイルを移動することが出来ました。
