- ベストアンサー
DIR関数を使ったファイル名の取得
おはようございます。 txtファイル名とdocファイル名を取得したく、以下のコードを作成してみました。 DIR関数を使って、ファイルリストボックスのPatternプロバディのように、複数の形式のファイル名を同時に取得する方法はあるのでしょうか? 是非、教えてください。よろしくお願いします。 ----------------------------- Private Sub Form_Load() Dim MyName MyName = Dir("C:\My Documents\*.txt") Do While MyName <> "" MsgBox MyName MyName = Dir Loop MyName = Dir("C:\My Documents\*.doc") Do While MyName <> "" MsgBox MyName MyName = Dir Loop End End Sub -------------------------------------
- adachi
- お礼率95% (40/42)
- Visual Basic
- 回答数3
- ありがとう数4
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (2)
- i-touch
- ベストアンサー率40% (170/415)
こんにちは！ もうできちゃったかな？ プロシージャを載せます。 私のは、拡張子はもう少し厳密にチェックしています。 サンプルを元にしているので、著作権の一部はマイクロソフトにあると思います。 リストボックス「list1」をフォームに貼り付けてやってみてください。 この例ではexeのあるフォルダにある*txt,*docをリストアップします。 Private Sub getFlist() '■ ファイルのリストを取得する Dim zMyp As String Dim zFnm As String Dim zName As String Dim zKaks As String Dim nFnm As Long zMyp = App.Path & "\" List1.Clear '# リストボックスを初期化する zName = Dir(zMyp, vbNormal) '# 最初のファイル名を取得する Do While zName <> "" '#ループ開始 '# 現在のフォルダと親フォルダは無視する If zName <> "." And zName <> ".." Then '# 普通のファイルかどうか If (GetAttr(zMyp & zName) And vbNormal) = vbNormal Then zFnm = UCase(zMyp & zName) '# パス＋ファイル名 zKaks = Right(zFnm, 3) '# 拡張子 '## 拡張子のフィルタリングを行う Select Case zKaks Case "DOC", "TXT" '# リストに追加！！ List1.AddItem zFnm Case Else '# その他のファイル zFnm = "" End Select End If End If zName = Dir '# 次のファイル名を取得する Loop '# 取得したファイルの数 'nFs = List1.ListCount End Sub では！
お礼
imogasi様、i-touch様、回答をくださいまして本当にありがとうございました。 （１）ＩＦ文で拡張子を区分する方法と（２）ファイルリストボックスで拡張子を区分する方法の両方を試してみました。 ＩＥキャッシュの中からｊｐｇ・ｇｉｆを取り出す作業をしてみたところ、（１）（２）ともに処理スピードはほぼ同じでした。 コードの記載は、ファイルリストボックス（visible=falseの状態）を使った方が楽で、把握しやすいことも分かりました。 imogasi様とi-touch様に対し、良回答の判断をしなければいけないのがとても心苦しかったです、、、、どうかお許しください。 今後もよろしくお願いします。
補足
こんなにも詳しい解説付きのプロシージャを書いてくださいまして、なんてお礼を申したらよいのか・・・本当にありがとうございます。 今からコードを貼り付けて、実際に試してみます。明日・・・いや今日ですね（苦笑）今日中に結果報告させていただきます。 それでは、一旦失礼します、、、
- i-touch
- ベストアンサー率40% (170/415)
こんにちは 指定したフォルダ中の、ファイルのリストを取得するサンプルが、ヘルプで出てくると思います。 それを改造して、取得したファイル名から、IF文で、拡張子がdoc,txtのものだけリストに加えるようにすれば簡単ですよ。 私はリストボックスにAdditemで加えて、ファイルのリストを作っています。 では！
お礼
回答していただき、ありがとうございます。返信が遅くなってしまい、申し訳ありません、、、 ＤＩＲ関数で複数の指定拡張子のファイル名を取得し、リストビューコントロールに表示させようしていました。ファイル名の取得にＤＩＲ関数を使っていたため、ファイルリストボックスコントロールでの「File.Pattern = "*.txt;*.doc" 」のように一つの文章にできないものか悩んでいました。 「リストボックスにAdditemで加えて、ファイルのリストを作っています」 この方法の方が、処理も早そうですね。imogasiさんに上手にまとめたｉｆ文と合わせて試し、後日結果報告をさせていただきます。
お礼
親身な回答していただき、本当にありがとうございます。 ＤＩＲ関数の拡張子指定も"*.txt;*.doc" のようにできるればと思っていたのですが、imogasi様のようにＩＦ文を使った方が無難そうですね。 リストビューコントロールにＩＥキャッシュ内のファイルの一覧を表示させようとしていました。ＤＩＲ関数にこだわっていたのですが、ファイルリストボックスを表示させない形で利用した方が良いかな・・・ imogasi様のアドバイスを参考にもう一度挑戦してみようと思います。
補足
imogasi様、i-touch様、回答をくださいまして本当にありがとうございました。 （１）ＩＦ文で拡張子を区分する方法と（２）ファイルリストボックスで拡張子を区分する方法の両方を試してみました。 ＩＥキャッシュの中からｊｐｇ・ｇｉｆを取り出す作業をしてみたところ、（１）（２）ともに処理スピードはほぼ同じでした。 コードの記載は、ファイルリストボックス（visible=falseの状態）を使った方が楽で、把握しやすいことも分かりました。 imogasi様とi-touch様に対し、良回答の判断をしなければいけないのがとても心苦しかったです、、、、どうかお許しください。 今後もよろしくお願いします。