指定フォルダのCSVファイルを、同一階層にある別フォルダに移動

Sub prcMoveCsvFilesToBup()
    ' 概要: 指定されたフォルダ内のCSVファイルを、同一階層にある「bup」フォルダに移動します。

    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    
    Dim strSourceFolder As String
    Dim strDestinationFolder As String
    Dim objFolder As Folder
    Dim objFile As File
    
    ' ソースフォルダのパスを指定
    strSourceFolder = "C:\Path\To\FolderA\" ' 実際のフォルダパスに変更してください
    ' 移動先のフォルダパスを指定（同一階層の「bup」フォルダと仮定）
    strDestinationFolder = strSourceFolder & "bup\"

    ' ソースフォルダ内のすべてのファイルをループ処理
    Set objFolder = fso.GetFolder(strSourceFolder)
    For Each objFile In objFolder.Files
        ' ファイルがCSVの場合のみ処理
        If LCase(fso.GetExtensionName(objFile.Name)) = "csv" Then
            ' CSVファイルを「bup」フォルダに移動
            objFile.Move strDestinationFolder & objFile.Name
        End If
    Next objFile
End Sub