回答編集履歴
1
Debug.Print fnameを削除しました。
test
CHANGED
@@ -34,7 +34,6 @@
|
|
34
34
|
Set fols = FSO.GetFolder(pair_path).SubFolders
|
35
35
|
For Each fol In fols
|
36
36
|
fname = pair_path & "\" & fol.Name & "\" & book_name
|
37
|
-
Debug.Print fname
|
38
37
|
If FSO.FileExists(fname) = True Then
|
39
38
|
ExPath = fname
|
40
39
|
Exit Function
|