Excel VBA質問箱 IV

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

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


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

33329 / 76734

←次へ　｜　前へ→


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

もとあし - 07/4/26(木) 10:31 -


	引用なし

	パスワード

ichinose さん、こんにちは。

お返事ありがとうございます。

>私の環境では、正常にさどうしていますけどねえ！！
やっぱり私の方はだめです。。。なぜ、私の方ではダメなのでしょうか。。。

>これで再度試してみてください。
>
>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

トライさせていただきました。
これは何の問題もなく、動作しました。
objFSOをCreateObjectで行うのと、
New FileSystemObject　でするのとは
何が変わってくるのですか？

すみません。教えてください。
よろしくお願いします。

7 hits

▼

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