Excel VBA質問箱 IV

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

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


23891 / 76738 ←次へ | 前へ→

【58203】Re:再帰処理でのファイル検索
発言  kanabun  - 08/10/11(土) 11:29 -

引用なし
パスワード
   ▼ON さん:
ごめんなさい。まだ、テストが足りなかった。。。

>Private Sub FindFile(Pathname$, strFind$, myList$(), _
>           fCount&, Optional SearchChild As Boolean = True)

内の
> If hFile = INVALID_HANDLE_VALUE Then Exit Sub
> Do
>   f = fDATA.cFileName
>   f = Left$(f, InStr(f, vbNullChar) - 1)
>   If (fDATA.dwFileAttributes And vbDirectory) = 0 Then 
>     fCount = fCount + 1
>     ReDim Preserve myList(1 To fCount)
>     myList(fCount) = Pathname & f
>   End If
> Loop While FindNextFile(hFile, fDATA)
> FindClose hFile

ここを、

 If hFile <> INVALID_HANDLE_VALUE Then
   Do
     f = fDATA.cFileName
     f = Left$(f, InStr(f, vbNullChar) - 1)
     If (fDATA.dwFileAttributes And vbDirectory) = 0 Then
       fCount = fCount + 1
       ReDim Preserve myList(1 To fCount)
       myList(fCount) = Pathname & f
     End If
   Loop While FindNextFile(hFile, fDATA)
   FindClose hFile
 End If

としないと、トップフォルダ内に 指定のファイルがないと、
サブフォルダを検索しませんでした。。
なんどもすみません m(__)m

0 hits

【58198】再帰処理でのファイル検索 ON 08/10/10(金) 19:56 質問
【58199】Re:再帰処理でのファイル検索 マクロマン 08/10/10(金) 20:37 発言
【58202】Re:再帰処理でのファイル検索 kanabun 08/10/11(土) 11:13 発言
【58203】Re:再帰処理でのファイル検索 kanabun 08/10/11(土) 11:29 発言
【58227】Re:再帰処理でのファイル検索 熊谷隆史 08/10/12(日) 16:24 発言
【58232】Re:再帰処理でのファイル検索 ON 08/10/12(日) 23:19 お礼
【58236】Re:再帰処理でのファイル検索 ON 08/10/13(月) 9:52 質問
【58250】Re:再帰処理でのファイル検索 熊谷隆史 08/10/14(火) 15:43 発言
【58251】Re:再帰処理でのファイル検索 kanabun 08/10/14(火) 17:39 発言
【58252】Re:再帰処理でのファイル検索 neptune 08/10/14(火) 21:41 発言
【58253】Re:再帰処理でのファイル検索 kanabun 08/10/14(火) 22:15 発言
【58255】Re:再帰処理でのファイル検索 neptune 08/10/14(火) 22:48 発言
【58256】Re:再帰処理でのファイル検索 jet 08/10/14(火) 23:41 回答
【58239】Re:再帰処理でのファイル検索 kanabun 08/10/13(月) 13:55 発言
【58243】Re:再帰処理でのファイル検索 neptune 08/10/13(月) 22:25 発言
【58244】Re:再帰処理でのファイル検索 kanabun 08/10/14(火) 1:25 発言
【58261】Re:再帰処理でのファイル検索 ON 08/10/15(水) 13:25 お礼
【58263】Re:再帰処理でのファイル検索 熊谷隆史 08/10/15(水) 13:43 発言
【58271】Re:再帰処理でのファイル検索 ON 08/10/15(水) 19:40 お礼
【58333】Re:再帰処理でのファイル検索 熊谷隆史 08/10/20(月) 10:47 発言
【58871】Re:再帰処理でのファイル検索 ON 08/11/15(土) 0:23 お礼

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