|
▼小僧 さん:
>【その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)に
>ブックと同じフォルダに存在するファイルが表示されると思います。
ご丁寧に有難うございました。
もう少しがんばってやってみます。
|
|