VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

> TEXT BOX から入力した拡張子であるフォルダーを検索し
> その結果を、フルパスでＣＳＶファイルへ出力したいのですが
> どうしたらよいのでしょうか？

Option Explicit

Private Sub Form_Load()
    Text1.Text = "C:\Program Files\"
    Text2.Text = "*.TXT"
    Text3.Text = "C:\結果.CSV"
End Sub

Private Sub Command1_Click()
    Dim Cmd As String

    If Right(Text1.Text, 1) <> "\" Then
        Text1.Text = Text1.Text & "\"
    End If
    
    Cmd = Environ("COMSPEC") & " /C DIR /S /B """ & _
          Text1.Text & Text2.Text & """>""" & Text3.Text & """"
    Shell Cmd, vbNormalFocus
End Sub