質問編集履歴
1
現在自分の理解している範囲でdirを使用したやり方に変えてみましたがうまくいきません。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -18,9 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
```
|
|
20
20
|
|
|
21
|
-
FolderExistsではワイルドカードが使用できない為
|
|
22
|
-
|
|
23
|
-
Folder
|
|
21
|
+
Set root_dirs = fso.GetFolder(root_dir).Files と記述している部分でパスが通らない
|
|
24
22
|
|
|
25
23
|
```
|
|
26
24
|
|
|
@@ -40,11 +38,11 @@
|
|
|
40
38
|
|
|
41
39
|
Const WF As String = "C:\Users\aaa\Desktop\"
|
|
42
40
|
|
|
43
|
-
root_dir = WF & TextBox1
|
|
41
|
+
root_dir = WF & "*" & TextBox1 & "*"
|
|
44
42
|
|
|
45
43
|
|
|
46
44
|
|
|
47
|
-
If
|
|
45
|
+
If Dir(root_dir) <> "" Then
|
|
48
46
|
|
|
49
47
|
|
|
50
48
|
|