Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56757 / 76736

←次へ　｜　前へ→


	【24724】Re:ファイルのパス名取得方法について

小僧 - 05/5/6(金) 11:48 -


	引用なし

	パスワード

▼mitu さん：
こんにちは。
【その１　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