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

7 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 お礼

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