Excel VBA質問箱 IV

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

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


23836 / 76732 ←次へ | 前へ→

【58252】Re:再帰処理でのファイル検索
発言  neptune  - 08/10/14(火) 21:41 -

引用なし
パスワード
   皆さん、こんにちは。

>>Windows CEなら有効なのかも知れません。
>
>情報ありがとうございます。
>何となくですが、ダメっぽいですね。
久しぶりに脳味噌を使って見ました。
一応取れるようですけど、どうなんですかね?
下記のコードではディレクトリのみが取れるようです。
熊谷隆史 さんのリンク先を見ると、なぜかはわかりませんけど。

>>Windows CEなら有効なのかも知れません。
とリンク先をみて萎えてしまいました。^ ^;;

XP SP3 VB6で作成
Private Sub Command1_Click()
  Dim cnt As Long
  Dim sBuf As String
  
  Call EnumSubDir(cnt, "C:\hogehoge\*")
End Sub

'標準モジュール
'宣言省略
'渡された直下のフォルダを列挙する
Public Sub EnumSubDir(ByRef cnt As Long, ByVal dirname As String)
Dim fd As WIN32_FIND_DATA
Dim h As Long
Dim sBuf As String
Dim lRet As Long

  'ハンドル取得
  h = FindFirstFileEx(dirname, FINDEX_INFO_LEVELS.FindExInfoStandard, _
          fd, FINDEX_SEARCH_OPS.FindExSearchLimitToDirectories, vbNull, 0&)
          
  If INVALID_HANDLE_VALUE = h Then
    Exit Sub
  End If
  
  Do
    sBuf = EditBuf(fd.cFileName)
    If fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY Then
      ' ディレクトリの場合
      If (sBuf <> ".") And (sBuf <> "..") Then
        ' .と..は処理しない
        Debug.Print "ディレクトリ - " & sBuf
      End If
    Else  ' ディレクトリ以外の場合(ファイル)
      Debug.Print "ファイル - " & sBuf
    End If
  '次のファイルを検索する
    lRet = FindNextFile(h, fd)
  Loop Until lRet <= 0

  'ハンドルを閉じる
  Call FindClose(h)

End Sub

Public Function EditBuf(Buf As String) As String
  Dim i As Long

  i = InStr(Buf, vbNullChar)
  If i <> 0 Then
    EditBuf = Left$(Buf, i - 1)
  Else
    EditBuf = Buf
  End If
End Function

私も最近はC#かVB2008です。どうも万年初心者になりそうですけど。
でもframework必須というのが嫌といえば嫌ですね。

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

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