回答編集履歴
3
コメント追加
test
CHANGED
|
@@ -14,7 +14,7 @@
|
|
|
14
14
|
|
|
15
15
|
With CreateObject("WScript.Shell")
|
|
16
16
|
|
|
17
|
-
strCmd = "
|
|
17
|
+
strCmd = "DIR/B/S " & myFolder & "\" & "*テスト.xls*" '/B…ファイル名のみを表示、/S…指定されたディレクトリおよびそのサブディレクトリのすべてのファイルを表示
|
|
18
18
|
|
|
19
19
|
Set objExec = .Exec("%ComSpec% /c " & strCmd)
|
|
20
20
|
|
2
説明文追加
test
CHANGED
|
@@ -1,3 +1,5 @@
|
|
|
1
|
+
再帰呼び出しせずにやってみました。
|
|
2
|
+
|
|
1
3
|
myFolder取得後、以下でいかがでしょうか。
|
|
2
4
|
|
|
3
5
|
|
1
vbCrLfに変更
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
|
|
26
26
|
|
|
27
|
-
file() = Split(objExec.StdOut.ReadAll, C
|
|
27
|
+
file() = Split(objExec.StdOut.ReadAll, vbCrLf)
|
|
28
28
|
|
|
29
29
|
Set objExec = Nothing
|
|
30
30
|
|