Excel VBA質問箱 IV

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

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


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

33317 / 76734

←次へ　｜　前へ→


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

ichinose - 07/4/27(金) 7:32 -


	引用なし

	パスワード

おはようございます。
>>
>>そこで、参照設定でShell controls and automationと
>これを見落としていました。この参照設定、要りません。
>Microsoft Scripting Runtimeにも
>Shell controls and automationにも
>Folderオブジェクトがあります。

因みに上記の二つとも参照設定している場合
（Shell controls and automationの優先順位が高くても）でも・・・、

Sub EnumFilePathList1(objFolder As Scripting.Folder)
　　Dim objTargetFile　 As Scripting.File
　　Dim objSubFolder　　 As Scripting.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

6 hits

▼

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