Excel VBA質問箱 IV

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

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


23845 / 76732 ←次へ | 前へ→

【58243】Re:再帰処理でのファイル検索
発言  neptune  - 08/10/13(月) 22:25 -

引用なし
パスワード
   ▼kanabun さん:
ちょっとだけお邪魔します。

宣言部分だけ何とかなりそうなので一応書いておきます。
既に、作成しておられるならこの書き込みは必要ありませんので
無視して結構です。

>これについての説明が Web にはあまり転がっていないようで、
>トライできてません。
という事なので、探してみましたが本当にあまり無いですね。
で、ヘッダーファイルから拾いました。

Public Enum FINDEX_INFO_LEVELS
  FindExInfoStandard
  FindExInfoMaxInfoLevel
End Enum
Public Enum FINDEX_SEARCH_OPS
  FindExSearchNameMatch
  FindExSearchLimitToDirectories
  FindExSearchLimitToDevices
  FindExSearchMaxSearchOp
End Enum

'多分lpSearchFilterは0で良いと思います。
'FindExInfoStandard を使用する場合第3引数はWIN32_FIND_DATAを
'返しますのでそのようにしてます。
Public Declare Function FindFirstFileEx Lib "kernel32.lib" _
        (ByVal lpFileName As String, _
        ByVal fInfoLevelId As FINDEX_INFO_LEVELS, _
        ByRef lpFindFileData As WIN32_FIND_DATA, _
        ByVal fSearchOp As FINDEX_SEARCH_OPS, _
        ByVal lpSearchFilter As Long, _
        ByVal dwAdditionalFlags As Long) As Long

あとはMSDN「FindFirstFileEx 関数」
ht tp://msdn.microsoft.com/ja-jp/library/cc429235.aspx
があれば何とかなりそうです。
見た感じFindFirstFileの代わりにFindFirstFileEx 使うだけで良いのですかね?

テストしてないので念の為、winbase.h内の定義をUPしときます。
'typedef enum _FINDEX_INFO_LEVELS {
'  FindExInfoStandard,
'  FindExInfoMaxInfoLevel
'} FINDEX_INFO_LEVELS;
'
'typedef enum _FINDEX_SEARCH_OPS {
'  FindExSearchNameMatch,
'  FindExSearchLimitToDirectories,
'  FindExSearchLimitToDevices,
'  FindExSearchMaxSearchOp
'} FINDEX_SEARCH_OPS;
'
'#define FIND_FIRST_EX_CASE_SENSITIVE  0x00000001
'
'WINBASEAPI
'__out
'Handle
'WINAPI
'FindFirstFileExA(
'  __in    LPCSTR lpFileName,
'  __in    FINDEX_INFO_LEVELS fInfoLevelId,
'  __out   LPVOID lpFindFileData,
'  __in    FINDEX_SEARCH_OPS fSearchOp,
'  __reserved LPVOID lpSearchFilter,
'  __in    DWORD dwAdditionalFlags
'  );
'
ここで根性尽きました。よろしければトライしてみて下さい。^ ^;;

>「サブフォルダだけの検索」ができるAPIをご存じありませんか?
ですが、MSDNをさまよってみましたが、findfirstfileexが一番可能性
ありそうな気はします?
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 お礼

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