Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
58860 / 76732 ←次へ　｜　前へ→
【22594】Re:Dir関数でサブフォルダまでファイル検索
発言  MMX  - 05/2/24(木) 15:06 -
引用なし
パスワード
   >Dir関数でサブフォルダまでファイル検索する方法を
>教えていただきたいのですが。

ご質問の件主旨とは違いますが、
以前、以下のような「必要なフォルダが存在するかを確認する」
という処理を作ったことがあり、散々調べた結果、

Dim FSO　As Object 'FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")

なんてな記述を追加して

If False = FSO.FolderExists(ThisWorkbook.Path & "\" & Fold) Then

とういう方法で存在確認をしたことがあります。
この辺を応用して、検索対象下のフォルダを一旦リスト化してから
再度、お手元のソースで調べてみるというのはいかがでしょう？


十分な対応ができませんが、ご参考までに。

'------------------------------------------------------------
Function FolderExistenceChecker(Fold As String) As Integer
'---保存先フォルダの存在確認
'---（フォルダ名＝Fold）存在すれば０、存在しなければ１を返す。
'---
FolderExistenceChecker = 1
'---
Dim FSO　As Object 'FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")

'---フォルダ存在確認
If False = FSO.FolderExists(ThisWorkbook.Path & "\" & Fold) Then
　 MsgBox("【警告】フォルダが存在しません。")
Else
　 FolderExistenceChecker = 0
End If
'---
Set FSO = Nothing
'---
End Function
1 hits
▼ 【22592】Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 14:39 質問
【22594】Re:Dir関数でサブフォルダまでファイル検索 MMX 05/2/24(木) 15:06 発言≪
【22596】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/24(木) 15:47 発言
【22602】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 18:34 質問
【22610】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 19:35 質問
【22613】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/24(木) 19:46 発言
【22615】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 19:57 質問
【22617】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/24(木) 20:24 発言
【22620】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 21:48 質問
【22622】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/24(木) 22:06 発言
【22628】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/24(木) 22:48 質問
【22630】Re:Dir関数でサブフォルダまでファイル検索 ichinose 05/2/24(木) 22:57 発言
【22632】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/24(木) 23:19 発言
【22641】Re:Dir関数でサブフォルダまでファイル検索 MMX 05/2/25(金) 10:17 お礼
【22642】Re:Dir関数でサブフォルダまでファイル検索 でれすけ 05/2/25(金) 10:31 発言
【22646】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/25(金) 12:02 お礼
【22681】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/28(月) 1:12 質問
【22682】Re:Dir関数でサブフォルダまでファイル検索 ちゃっぴ 05/2/28(月) 1:21 発言
【22683】Re:Dir関数でサブフォルダまでファイル検索 でれすけ 05/2/28(月) 1:28 回答
【22689】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/28(月) 13:27 発言
【22691】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/28(月) 15:11 質問
【22693】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/28(月) 18:09 発言
【22694】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/28(月) 18:13 発言
【22700】Re:Dir関数でサブフォルダまでファイル検索 桜 05/2/28(月) 20:13 質問
【22704】Re:Dir関数でサブフォルダまでファイル検索 kazu 05/2/28(月) 21:43 発言
【22705】Re:Dir関数でサブフォルダまでファイル検索 イオン 05/2/28(月) 21:48 お礼
【22722】Re:Dir関数でサブフォルダまでファイル検索 桜 05/3/1(火) 10:18 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
58860 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free