VBA｜MoveFolderメソッド(ファイルシステムオブジェクト)

MoveFolderメソッドは指定されたフォルダを別の場所に移動します。フォルダの指定方法によって複数のフォルダの移動も可能です。

※ファイルシステムオブジェクト(FileSystemObject)についてはこちら

VBA｜ファイルシステムオブジェクト(FileSystemObject)でファイルやフォルダを操作する

VBAではファイルやフォルダを操作するときにつかえる便利なファイルシステムオブジェクト(FileSystemObject)の利用ができます。この記事ではファイルシステムオブジェクトをあつかうための方法や、使える機能(メソッドやプロパティ)を紹介しています。

Contents

MoveFolderメソッドの構文

構文

ファイルシステムオブジェクト.MoveFolder(移動元パス(Source),移動先パス(Destination))

MoveFolderメソッドの構成要素と引数

構成要素と引数

要素／引数	必須／任意	説明
ファイルシステムオブジェクト (FSO)	必須	ファイルシステムオブジェクトを指定します。
移動元パス (Source)	必須	移動するフォルダのパスを指定します。パスの末尾ではワイルドカード文字の使用ができます。
移動先パス (Destination)	必須	移動先のフォルダのパスを指定します。ワイルドカード文字の使用はできません。

その他のポイント

移動元パス(Source)のパスの末尾にワイルドカード文字が含まれているとき、または区切り記号である場合は、移動先パス(Destination)は既存のフォルダとしてみなされます。

移動元パス(Source)のパスが1つのフォルダを指定している場合で、移動先パス(Destination)に指定したパスに既に同じ名前のファイルが存在していた場合はエラーが発生します。

移動元パス(Source)のパスが1つのフォルダを指定している場合で、移動先パス(Destination)に指定したパスがフォルダであった場合はエラーが発生します。

移動元パス(Source)のパスの末尾にワイルドカード文字が含まれているが、どのフォルダにも一致しなかった場合はエラーが発生します。

MoveFolderメソッドは最初にエラーが発生した時点で処理を中止します。それまでに実行された処理の取り消しや、元に戻す処理は実行されません。

移動元パス(Source)が1つのファイルか複数のファイルかの違いで移動先パス(Destination)のあつかいが変わるんだね。

MoveFolderメソッドをつかったサンプルマクロ

サンプルコード

①1つのフォルダを移動する

Option Explicit

Sub ファイルシステムオブジェクト_MoveFolderメソッド()
    
    'ファイルシステムオブジェクトを使うため準備
    
    '①事前バインディングの場合はVBEのツールより参照設定で「Microsoft Scripting Runtime」にチェックをしてください。
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject
    
    'MoveFolderメソッドの使用例(1つのファルダを移動)
    FSO.MoveFolder "C:\Users\ユーザー名\Desktop\Test\サンプルフォルダ1\サンプルフォルダ1-1", "C:\Users\ユーザー名\Desktop\Test\"

End Sub

実行結果

①1つのフォルダを移動する

C:\Users\ユーザー名\Desktop\Test\サンプルフォルダ1の中の「サンプルフォルダ1-1」フォルダとその中に入っているフォルダやファイルは、Testフォルダの中に移動する。

サンプルコード

②複数のフォルダを移動する

Option Explicit

Sub ファイルシステムオブジェクト_MoveFolderメソッド()
    
    'ファイルシステムオブジェクトを使うため準備
    
    '①事前バインディングの場合はVBEのツールより参照設定で「Microsoft Scripting Runtime」にチェックをしてください。
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject
    
    'MoveFolderメソッドの使用例(ワイルドカード文字を使って複数フォルダを移動)
    FSO.MoveFolder "C:\Users\ユーザー名\Desktop\Test\サンプルフォルダ1\*", "C:\Users\ユーザー名\Desktop\Test\"

End Sub

実行結果

②複数のファイルを移動する

C:\Users\ユーザー名\Desktop\Testにあるサンプルフォルダ1フォルダの中のすべてのフォルダとファイルが、Testフォルダの中に移動する。