※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
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
|
|