ファイル 指定フォルダ内の全てのファイルを指定フォルダへ移動

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ファイル 指定フォルダ内の全てのファイルを指定フォルダへ移動]
Option Explicit


Sub フォルダ内ファイル移動(移動元フォルダパス As String, 移動先フォルダパス As String)
'***************************************************
'指定フォルダ内の全てのファイルを指定フォルダへ移動
'***************************************************

Dim FileName As String

    'フォルダの存在確認
    If Dir(移動元フォルダパス, vbDirectory) = "" Then
        MsgBox "指定移動元フォルダは存在しません。", vbExclamation, "ERROR!"
        Exit Sub
    End If
    If Dir(移動先フォルダパス, vbDirectory) = "" Then
        MsgBox "指定移動先フォルダは存在しません。", vbExclamation, "ERROR!"
        Exit Sub
    End If

    '先頭ファイル名取得
    FileName = Dir(移動元フォルダパス & "\*.*", vbNormal)
    '繰返処理
    Do While FileName <> ""
            'ファイル移動(同一ドライブ)
            Name 移動元フォルダパス & "\" & FileName As 移動先フォルダパス & "\" & FileName

        FileName = Dir()
    Loop

End Sub


Private Sub test()
フォルダ内ファイル移動 ThisWorkbook.Path & "\test", ThisWorkbook.Path & "\test\test"
End Sub





Production Japan Import Application. Since 1998