クラスを使用してファイルの移動を作ってみた

'****************************
'* ファイルの移動。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)

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 F.ExistFile(myDestination & "\" & myFileName) Then
    MsgBox "移動先に同名のファイルがあります"
    Exit Sub
End If

F.Name = mySource & "\" & myFileName
F.Move (myDestination)

Set F = Nothing

Sub ExampleUsage()
    ' ファイルを移動
    Call FileMove("example.txt", "C:\Source", "C:\Destination")
End Sub