Excel VBA質問箱 IV

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

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


33348 / 76738 ←次へ | 前へ→

【48612】Re:複数フォルダの全ファイル取得方法
質問  もとあし  - 07/4/25(水) 15:53 -

引用なし
パスワード
   ichinose さん、こんにちは。

>>目安箱にいくつもありますよ!!
>>
>>www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=74;id=FAQ
>>
>>FSOを使ったコードが再帰ロジックの典型コードとして
>>よく使われていますから、再帰処理を学ぶにはよさそうですよ!!
【その1 FSO Version】を見てみました。が、エラーが出ますので、教えていただけないでしょうか。
それまでも何度か別のエラーは出ました。
そこで、参照設定でShell controls and automationと
Scripting runtimeにチェックを入れました。
また、strTargetPath にPathを入れました。
すると、エラー13:型が一致しませんと、下記の場所ででます。
Debug.printしてみたりして自分で確認してみたりもしたのですが、
どうして、型が一致しないのか、よく分からないのです。
何かを私は理解していない気がするのです。
それが何か自分で分からないので、すみません。教えていただけませんか?
よろしくお願いします。

>'呼び出し用
>Sub CallFilePathList1()
>  Dim objFSO     As FileSystemObject
>  Dim strTargetPath  As String      '対象フォルダパス
>  
>  Set objFSO = New FileSystemObject
   strTargetPath = "K:\"
>  
>  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
0 hits

【48577】複数フォルダの全ファイル取得方法 もとあし 07/4/23(月) 15:48 質問
【48579】Re:複数フォルダの全ファイル取得方法 ハチ 07/4/23(月) 17:28 回答
【48595】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/24(火) 11:50 お礼
【48597】Re:複数フォルダの全ファイル取得方法 ハチ 07/4/24(火) 14:00 回答
【48609】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/25(水) 14:24 お礼
【48610】Re:複数フォルダの全ファイル取得方法 ハチ 07/4/25(水) 15:47 発言
【48613】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/25(水) 16:08 お礼
【48581】Re:複数フォルダの全ファイル取得方法 ichinose 07/4/23(月) 18:42 発言
【48596】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/24(火) 12:01 お礼
【48612】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/25(水) 15:53 質問
【48618】Re:複数フォルダの全ファイル取得方法 ichinose 07/4/25(水) 19:52 発言
【48627】Re:複数フォルダの全ファイル取得方法 もとあし 07/4/26(木) 10:31 お礼
【48638】Re:複数フォルダの全ファイル取得方法 ichinose 07/4/26(木) 22:01 発言
【48639】Re:複数フォルダの全ファイル取得方法 追伸 ichinose 07/4/27(金) 7:32 発言
【48642】Re:複数フォルダの全ファイル取得方法 追伸 もとあし 07/4/27(金) 12:02 お礼

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