|
▼mitu さん:
こんにちは。
【その1 FSO Version】が解りやすいと思われますので、
使用例をあげてみます。
Sub CallFilePathList1()
Dim objFSO As FileSystemObject
Dim strTargetPath As String '対象フォルダパス
⇒追加
strTargetPath = ActiveWorkbook.Path
Set objFSO = New FileSystemObject
Call EnumFilePathList1(objFSO.GetFolder(strTargetPath))
End Sub
'本体
Sub EnumFilePathList1(objFolder As Folder)
Dim objTargetFile As File
Dim objSubFolder As Folder
'ファイル名を列挙
For Each objTargetFile In objFolder.Files
Debug.Print objTargetFile.Path
Next objTargetFile
'サブフォルダを検索
For Each objSubFolder In objFolder.SubFolders
Call EnumFilePathList1(objSubFolder)
Next objSubFolder
End Sub
任意のエクセルの標準モジュールに上記のコードを
記載して実行させた後に、イミディエトウィンドウ
(コードを表示させた画面でCtrl + G)に
ブックと同じフォルダに存在するファイルが表示されると思います。
|
|