フォルダ フォルダ内のファイル全てを一括移動

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][フォルダ フォルダ内のファイル全てを一括移動]

Sub フォルダ名を変更()
'********************************************
'フォルダ名を変更する
'フォルダ内のファイル全てを一括移動
'********************************************
'解説:フォルダ内のファイル全て移動するにはファルダ名を変更すれば良い
'※特殊な事情は除く

Dim oldName(2) As String
Dim newName(2) As String
Dim strpath As String

strpath = ThisWorkbook.Path

'変換元←→変換先を入れ替えたことになる
oldName(1) = strpath & "\変換元"
newName(1) = strpath & "\k変換元" '[k]を付けただけだが同名注意
oldName(2) = strpath & "\変換先"
newName(2) = strpath & "\k変換先" '[k]を付けただけだが同名注意

Name oldName(1) As newName(1)
Name oldName(2) As newName(2)
Name newName(1) As oldName(2)
Name newName(2) As oldName(1)

End Sub






Production Japan Import Application. Since 1998