vbaについて教えてください

質問

エクセルでワークシートに貼ったコマンドボタンをクリックするとユーザーフォームを呼び出してかつ、ユーザーフォーム上のコンボボックスに指定フォルダ下のフォルダを表示するものを作りました。
ユーザーフォーム上のコンボボックスに表示されたフォルダを切替選択するとリストボックスにそのフォルダ下のファイルを表示させたいのですがやり方がわかりませんので教えてください。

回答No.2

yyr446

ご提示のソースコードを見る限り、ユーザーフォームがどうのこうのと
言う以前にプログラムが、でたらめです。
-dir()関数やGetAttr()関数の意味や使い方をちゃんと調べて、理解してますか？
もっと基本的な事として、if... then ... やDo While ... loop
の用途や構文についても、分かってないようです。
まず、VBAでフォルダーやファイルの情報を取得する方法を、調べましょう。Googleで「vba ファイルシステムオブジェクト」をキーワードにして調べるとたくさんヒットします。
　調べたサンプルコードを十分理解できたら、フォームの操作にいどんで下さい。

時間がないなら、丸投げのお願いをしてみる事です。

お礼

> Googleで「vba ファイルシステムオブジェクト」をキーワードにして調べるとたくさんヒットします。

Googleで検索後、すっきりしたコードになりました。
ありがとうございました。

回答No.1

yyr446

「指定フォルダ下のフォルダを表示するものを作りました。」
という事は、指定フォルダ下のファイル一覧の取得方法もご存知ですよね(あなたがどのように取得しているかは、わかりませんが)。
それなら、
Sub ComboBox1_Change()
の中で、まずListBoxをクリアして
ListBox.Clear
選ばれたフォルダー下のファイル名をファイルの数分、ListBoxの
Itemに追加するだけ
ListBox.AddItem i
ListBox.List(i) = ファイル名
注意）初歩的な説明は省いています。
※フォルダー名やファイル名の取得方法が分からないなら、また聞いて下さい。
※このユーザーフォームの用途がわかりませんが、指定したフォルダー下のファイルを表示したり、選ばせたりするダイアログ（フォーム）は、自分で作らなくても、提供されてます。

補足

ワークシートに貼ったコマンドボタンのプログラムは下記ですが
Private Sub CommandButton1_Click()
Dim mdir As String
MAINDIR = "D:\"
mdir = Dir(MAINDIR, vbDirectory)
Do While mdir <> ""
If myear <> "." And myear <> ".." Then
If (GetAttr(MAINDIR & mdir) And vbDirectory) = vbDirectory Then
With UserForm2.ComboBox1
.AddItem mdir
.Value = mdir
End With
End If
End If
mdir = Dir
Loop
UserForm2.ComboBox1.Style = fmStyleDropDownList
UserForm2.Show
End Sub
ユーザーフォームの方でうまくいかないです。教えてください。