Excel VBA質問箱 IV

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

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


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

33338 / 76734

←次へ　｜　前へ→


	【48618】Re:複数フォルダの全ファイル取得方法

ichinose - 07/4/25(水) 19:52 -


	引用なし

	パスワード

▼もとあしさん：
こんばんは。
私の環境では、正常にさどうしていますけどねえ！！

>どうして、型が一致しないのか、よく分からないのです。

>それが何か自分で分からないので、すみません。教えていただけませんか？
>よろしくお願いします。

これで再度試してみてください。

Sub CallFilePathList1()
　　Dim objFSO　　　　　As Object
　　Dim strTargetPath　 As Variant　　　'対象フォルダパス
　　strTargetPath = "k:\"
　　Set objFSO = CreateObject("Scripting.FileSystemObject")
　
　　Call EnumFilePathList1(objFSO.GetFolder(strTargetPath))
End Sub

'本体
Sub EnumFilePathList1(objFolder As Object)
　　Dim objTargetFile　 As File
　　Dim objSubFolder　　 As Folder
　
　　'ファイル名を列挙
　　On Error Resume Next
　　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

8 hits

▼

【48577】複数フォルダの全ファイル取得方法 もとあし 07/4/23(月) 15:48