teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問VBAにてファイル名を一括変更したいです。

編集履歴

質問編集履歴

1

パスとファイル名を変更しました

2018/08/27 07:44

投稿

gackt395
gackt395

スコア9

test CHANGED
File without changes
test CHANGED
@@ -6,15 +6,15 @@
6
6
 
7
7
  具体的には
8
8
 
9
- xx01.txt → Fit_xx01.txt
9
+ xx01.txt → aaa_xx01.txt
10
10
 
11
- xx02.txt → Fit_xx02.txt
11
+ xx02.txt → aaa_xx02.txt
12
12
 
13
- xx03.txt → Fit_xx03.txt
13
+ xx03.txt → aaa_xx03.txt
14
14
 
15
- xx04.txt → Fit_xx04.txt
15
+ xx04.txt → aaa_xx04.txt
16
16
 
17
- xx05.txt → Fit_xx05.txt
17
+ xx05.txt → aaa_xx05.txt
18
18
 
19
19
  という具合にファイル名を一括変更したいです。
20
20
 
@@ -52,9 +52,9 @@
52
52
 
53
53
 
54
54
 
55
- SourcePath = "\snd8970\data-ATJ_B\ECU\個人用\ﾘﾝｸﾞﾀﾞﾒｰｼﾞ頻度処理ﾂｰﾙ改修\txt\"
55
+ SourcePath = "\C:abc\test\"
56
56
 
57
- DestinationPath = "\snd8970\data-ATJ_B\ECU\個人用\ﾘﾝｸﾞﾀﾞﾒｰｼﾞ頻度処理ﾂｰﾙ改修\"
57
+ DestinationPath = "\D:123\test"
58
58
 
59
59
 
60
60
 
@@ -66,7 +66,7 @@
66
66
 
67
67
  Name SourcePath & "xx0" & "j" & ".txt" _
68
68
 
69
- As DestinationPath & "Fit_xx0" & "j" & ".txt"
69
+ As DestinationPath & "aaa_xx0" & "j" & ".txt"
70
70
 
71
71
  j = j + 1
72
72
 
@@ -108,15 +108,15 @@
108
108
 
109
109
 
110
110
 
111
- SourcePath = "\snd8970\data-ATJ_B\ECU\個人用\ﾘﾝｸﾞﾀﾞﾒｰｼﾞ頻度処理ﾂｰﾙ改修\txt\"
111
+ SourcePath = "\C:abc\test\"
112
112
 
113
- DestinationPath = "\snd8970\data-ATJ_B\ECU\個人用\ﾘﾝｸﾞﾀﾞﾒｰｼﾞ頻度処理ﾂｰﾙ改修\"
113
+ DestinationPath = "\D:123\test"
114
114
 
115
115
 
116
116
 
117
117
  Name SourcePath & "xx01.txt" _
118
118
 
119
- As DestinationPath & "Fit_xx01.txt"
119
+ As DestinationPath & "aaa_xx01.txt"
120
120
 
121
121
 
122
122