質問編集履歴
1
現在自分の理解している範囲でdirを使用したやり方に変えてみましたがうまくいきません。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,8 +8,7 @@
|
|
|
8
8
|
### 発生している問題・エラーメッセージ
|
|
9
9
|
|
|
10
10
|
```
|
|
11
|
-
FolderExistsではワイルドカードが使用できない為
|
|
12
|
-
|
|
11
|
+
Set root_dirs = fso.GetFolder(root_dir).Files と記述している部分でパスが通らない
|
|
13
12
|
```
|
|
14
13
|
|
|
15
14
|
### 該当のソースコード
|
|
@@ -19,9 +18,9 @@
|
|
|
19
18
|
|
|
20
19
|
' フォルダのパス
|
|
21
20
|
Const WF As String = "C:\Users\aaa\Desktop\"
|
|
22
|
-
root_dir = WF & TextBox1
|
|
21
|
+
root_dir = WF & "*" & TextBox1 & "*"
|
|
23
22
|
|
|
24
|
-
If
|
|
23
|
+
If Dir(root_dir) <> "" Then
|
|
25
24
|
|
|
26
25
|
Sheets(2).Cells.Clear
|
|
27
26
|
For Each Pic In Sheets(2).Shapes
|