エクセルVBA ファイル取得方法？

質問

エクセル２０００のVBAにて
外付ハードディスクにあるファイルを取得しようとして、
下記のように書き込みました。
Private Sub CommandButton1_Click()
Dim myFSO As New FileSystemObject
Dim myFolder As Folder
Dim myFiles As Files
Dim myFile As File
Set myFolder = myFSO.GetFolder("L:\製品実現プロセス書類\作業標準書\ ComboBox1")
Set myFiles = myFolder.Files
For Each myFile In myFiles
ComboBox2.AddItem myFile.Name
Next
End Sub
Private Sub UserForm_Initialize()
Dim myFSO As New FileSystemObject
Dim myFolders As Folders
Dim myFolder As Folder

Set myFolders = myFSO.GetFolder("L:\製品実現プロセス書類\作業標準書\").SubFolders
i = 1
For Each myFolder In myFolders
ComboBox1.AddItem myFolder.Name
Next
ComboBox1.ListIndex = 0 '初期値
End Sub
コンボボックス１には
フォームを開いたときにハードディスクLの製品実現プロセス書類フォルダ内の作業標準書フォルダー内のフォルダをすべてを書き込むようして、

コンボボックス２にはコマンドボタン１をクリックしたときに
コンボボックス１で選択したフォルダ内のファイルを取得したいのですがパスが見つかりませんのエラーが出ます。
たぶん、コンボボックス１の書き込み方を間違えていると思いますが
わかりません？？
教えていただけないでしょうか？

回答No.1

onlyrom · ベストアンサー

Set myFolder = myFSO.GetFolder("L:\製品実現プロセス書類\作業標準書\ ComboBox1")

最後のComboBox1の部分は、Combobox1で選択された項目ですから

Set myFolder = myFSO.GetFolder("L:\製品実現プロセス書類\作業標準
書\" & ComboBox1.Text)

ではないですか？

それから、今回の件とは関係ないですが、
ComboBox2のFor Each myFile in myFilesの前に
ComboBox2.Clear　が必須だと思いますが。

外しましたらご容赦願います。

お礼

ありがとうございます。
ファイル取得できました。
ご指摘のようにComboBox2.Clear　は必須ですね。