DIR関数を使ったファイル名の取得 - Visual Basic - 教えて！goo

こんにちは！
もうできちゃったかな？
プロシージャを載せます。
私のは、拡張子はもう少し厳密にチェックしています。
サンプルを元にしているので、著作権の一部はマイクロソフトにあると思います。
リストボックス「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

では！

通報する

こんにちは
指定したフォルダ中の、ファイルのリストを取得するサンプルが、ヘルプで出てくると思います。
それを改造して、取得したファイル名から、IF文で、拡張子がdoc,txtのものだけリストに加えるようにすれば簡単ですよ。
私はリストボックスにAdditemで加えて、ファイルのリストを作っています。
では！

通報する

VBのＦｏｒｍ１の上にドライブ、ディレクトリ、ファイルリストボックスを
貼りつけ、それぞれのコントロールをダブルクリックして
Private Sub Ｄｒｉｖｅ１_Ｃｈａｎｇｅ()
Ｄｉｒ１．Ｐａｔｈ＝Ｄｒｉｖｅ１．Ｄｒｉｖｅ
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Pattern = "*.txt;*.doc"
End Sub

Private Sub File1_Click()
flnam= File1.FileName
MsgBox flnam
End Sub
と入力して見ました。実行すると
ファイルリストボックスに拡張子が「txt」と「doc」の２つが
現われます。そしてクリックして指定したファイル名が
ＭｓｇＢｏｘに現われます。
本件の質問は、この「Ｐａｔｔｅｒｎ」プロパティと、拡張子を列記する
方法「；」に付いての質問ではないのでしょうか。
「Ｐａｔｔｅｒｎ」の語が出ているので多分ご存知の様子ですね。
-----
またＤｉｒ関数で下記を実行してみました。ご参考になれば。
Private Sub Form_Click()
a = Dir("c:\My Documents\*.*")
For i = 1 To 40
　a = Dir()
　a = Trim(a)
　b = Right(a, 4)
　　If b = ".doc" Then
　　　　　Form1.Print a
　　ElseIf b = ".txt" Then
　　　　　Form1.Print a
　　End If
Next i
End Sub
仮に繰り返し回数を「４０」としていますが、ファイル数より回数が進んだ時の「エラーの検知方法」が思い出せず不完全です。すみません。全般について、ご存知の方やダメな点を私も教わりたいです。

通報する