【VBA】ファイルを移動する

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

ここでは私が可読性が良いと考える方法を
記載します!

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

「移動先のフォルダパス」には最後に「\」を付けないといけません。
付け忘れると以下のエラーとなります。

実行結果

ファイルを移動することが出来ました。

タイトルとURLをコピーしました