質問編集履歴
2
追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -183,3 +183,41 @@
|
|
|
183
183
|
分かる方、ご教示いただければと思います。
|
|
184
184
|
|
|
185
185
|
宜しくお願い致します。
|
|
186
|
+
|
|
187
|
+
|
|
188
|
+
|
|
189
|
+
【追記】
|
|
190
|
+
|
|
191
|
+
「Debug.Print ; consSOUR」と「Debug.Print ; consDEST」を「FSO.MOVEFILE consSOUR, consDEST」の直前に追加し、内容が以下になります。
|
|
192
|
+
|
|
193
|
+
\space\kyouyu\各案件フォルダ\【201809分】\①インポート*.xlsx
|
|
194
|
+
|
|
195
|
+
\space\kyouyu\各案件フォルダ\【201809分】\①インポート\old\0913
|
|
196
|
+
|
|
197
|
+
|
|
198
|
+
|
|
199
|
+
また、「fso.FileExists」を以下のような形で追加し確認したところ「consSOUR が存在しません」と表示されました。
|
|
200
|
+
|
|
201
|
+
```
|
|
202
|
+
|
|
203
|
+
If FSO.FileExists(consSOUR) Then
|
|
204
|
+
|
|
205
|
+
MsgBox consSOUR & "が存在します"
|
|
206
|
+
|
|
207
|
+
If FSO.FileExists(consDEST) Then
|
|
208
|
+
|
|
209
|
+
MsgBox consDEST & "が存在します"
|
|
210
|
+
|
|
211
|
+
Else
|
|
212
|
+
|
|
213
|
+
MsgBox consDEST & "が存在しません"
|
|
214
|
+
|
|
215
|
+
End If
|
|
216
|
+
|
|
217
|
+
Else
|
|
218
|
+
|
|
219
|
+
MsgBox consSOUR & "が存在しません"
|
|
220
|
+
|
|
221
|
+
End If
|
|
222
|
+
|
|
223
|
+
```
|
1
書式改善
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -32,15 +32,15 @@
|
|
|
32
32
|
|
|
33
33
|
┣oldフォルダ
|
|
34
34
|
|
|
35
|
-
┗新規フォルダ
|
|
35
|
+
┗新規フォルダ
|
|
36
36
|
|
|
37
|
-
┣ファイルA.xlsx
|
|
37
|
+
┣ファイルA.xlsx
|
|
38
38
|
|
|
39
|
-
┣ファイルB.xlsx
|
|
39
|
+
┣ファイルB.xlsx
|
|
40
40
|
|
|
41
|
-
┣ファイルC.xlsx
|
|
41
|
+
┣ファイルC.xlsx
|
|
42
42
|
|
|
43
|
-
┗ファイルD.csv
|
|
43
|
+
┗ファイルD.csv
|
|
44
44
|
|
|
45
45
|
|
|
46
46
|
|