ファイル名取得について

質問

VBAでの事なのですが…
テキストボックスの中にファイル名を出したいのですがどのようにすればいいでしょうか？
Cドライブに入れているファイル名をだしたいのですが。
教えていたたでないでしょうか？

回答No.1

imogasi

Sheet1に１つのTextBox1と１つのCommandButton1を貼りつける。TextBox1のプロパティにMultilineはTrue、ScrollBarにfmScrollBarsVerticalをセットしておく。
ＶＢＥのＳｈｅｅｔ１のCommandButton1のＣｌｉｃｋイベントに下記を記述する。
Private Sub CommandButton1_Click()
TextBox1.Text = ""
Dim FName As String
FName = Dir("c:\My Documents\")
Do While FName <> ""
TextBox1.Text = TextBox1 & FName & vbCrLf
FName = Dir()
Loop
End Sub

お礼

回答ありがとうございます。お礼が遅れてすいません。
早速試してみたいと思います。