Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56738 / 76732 ←次へ | 前へ→

【24739】Re:ファイルのパス名取得方法について
お礼  mitu  - 05/5/6(金) 17:29 -

引用なし
パスワード
   ▼小僧 さん:
>【その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)に
>ブックと同じフォルダに存在するファイルが表示されると思います。

ご丁寧に有難うございました。
もう少しがんばってやってみます。
0 hits

【24719】ファイルのパス名取得方法について mitu 05/5/6(金) 8:48 質問
【24720】Re:ファイルのパス名取得方法について 小僧 05/5/6(金) 10:29 発言
【24723】Re:ファイルのパス名取得方法について mitu 05/5/6(金) 11:27 お礼
【24724】Re:ファイルのパス名取得方法について 小僧 05/5/6(金) 11:48 発言
【24739】Re:ファイルのパス名取得方法について mitu 05/5/6(金) 17:29 お礼
【24740】Re:ファイルのパス名取得方法について ちゃっぴ 05/5/6(金) 17:44 発言

56738 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free