クラスを使用してファイルの移動を作ってみた
タイトルのマクロは、以下です。指定されたファイルを指定されたフォルダから別のフォルダに移動するためのものです。
'****************************
'* ファイルの移動。20230110
'* myFileName：ファイル名
'* mySource：移動元のフォルダ
'* myDestination：移動先のフォルダ
'* クラスを使用して、作り変え。20230227
Sub FileMove(myFileName As String, mySource As String, myDestination As String)
' クラス FileObj のインスタンス化。
Dim F As FileObj: Set F = New FileObj
' 移動元のフォルダの確認
If Not F.ExistFolder(mySource) Then
MsgBox "移動元のフォルダが確認できませんでした"
Exit Sub
End If
' 移動先のフォルダの確認
If Not F.ExistFolder(myDestination) Then
MsgBox "移動先のフォルダが確認できませんでした"
Exit Sub
End If
' 移動元のファイルの確認
If Not F.ExistFile(mySource & "\" & myFileName) Then
MsgBox "移動元のファイルが確認できませんでした"
Exit Sub
End If
' 移動先に同名ファイルがないかの確認
If F.ExistFile(myDestination & "\" & myFileName) Then
MsgBox "移動先に同名のファイルがあります"
Exit Sub
End If
' ファイルの移動
F.Name = mySource & "\" & myFileName
F.Move (myDestination)
Set F = Nothing
End Sub各部分の説明
サブルーチンの宣言:
Sub FileMove(myFileName As String, mySource As String, myDestination As String)myFileNameは移動するファイルの名前。mySourceは移動元のフォルダのパス。myDestinationは移動先のフォルダのパス。
FileObj クラスのインスタンス化:
Dim F As FileObj: Set F = New FileObjFileObjクラスの新しいインスタンスを作成します。このクラスにはフォルダやファイルの存在確認、ファイルの移動などの機能が含まれています。
移動元のフォルダの確認:
If Not F.ExistFolder(mySource) Then
MsgBox "移動元のフォルダが確認できませんでした"
Exit Sub
End IfExistFolderメソッドを使用して、mySourceフォルダが存在するかを確認します。存在しない場合はエラーメッセージを表示してサブルーチンを終了します。
移動先のフォルダの確認:
If Not F.ExistFolder(myDestination) Then
MsgBox "移動先のフォルダが確認できませんでした"
Exit Sub
End IfExistFileメソッドを使用して、mySourceフォルダ内にmyFileNameファイルが存在するかを確認します。存在しない場合はエラーメッセージを表示してサブルーチンを終了します。
移動先に同名ファイルがないかの確認:
If F.ExistFile(myDestination & "\" & myFileName) Then
MsgBox "移動先に同名のファイルがあります"
Exit Sub
End IfExistFileメソッドを使用して、myDestinationフォルダ内に同名のファイルが存在しないかを確認します。存在する場合はエラーメッセージを表示してサブルーチンを終了します。
ファイルの移動:
F.Name = mySource & "\" & myFileName
F.Move (myDestination)Nameプロパティを使用して、移動するファイルのフルパスを設定します。Moveメソッドを使用して、ファイルをmyDestinationフォルダに移動します。
FileObj クラスのインスタンスの解放:
Set F = NothingFileObjクラスのインスタンスを解放します。
使用例
以下の使用例では、「example.txt」ファイルを「C:\Source」フォルダから「C:\Destination」フォルダに移動します。
Sub ExampleUsage()
' ファイルを移動
Call FileMove("example.txt", "C:\Source", "C:\Destination")
End SubFileObj クラスは、以下参照願います
Follow me!
