İki listviewin birbirine bağlı listeleme görevinde yardım

[Tankut SAZLI]

Selam;
Visual basic-6 da hazırladığım form üzerindeki iki listview den birinde Klasörleri,diğerinde de mdb leri listelemeye çalışıyorum.klasor_list te seçtiğim klasör ismini text1e yazdırıp,bu klasör içindeki datalarıda egitimyil_list listviewinde listelemeye çalışıyorum fakat bir türlü olmuyor.

Const Yol As String = App.Path + "\Tools\" & Text1.Text satırında hata ile karşılaşıyorum.App.Path i kabul etmiyor.App.Path den ötürü satırı prosedürün içine almama rağmen.

Const Yol As String = App.Path + "\Tools\" & Text1.Text
'Const Yol As String = "D:\Alınan Dosyalarım\deneme\Datalar\" '!!!!!buradaki gibi yolu kendim belirdediğim 
'zaman sadece bu dosyanın içindeki 
'mdb leri listeliyor,oysa farklı dosyalardan seçim yapmalıyım.
Sub KlasorListele()
For Each klasor In CreateObject("Scripting.FileSystemObject").GetFolder(App.Path + "\Tools\").SubFolders
klasor_list.ListItems.Add = (klasor.Name)
Next
End Sub
Private Sub Form_Load()
Call KlasorListele
Call tusduzeni
End Sub

Private Sub klasor_list_Click()
On Error Resume Next
Call DosyaListele
Text1.Text = Text1.Text = klasor_list.SelectedItem.Text
End Sub
Sub DosyaListele()
'''''''!!!!!! klasor_list seçilen isim klasörü içindeki dataların listelenme olayı
'Const Yol As String = App.Path + "\Tools\" & Text1.Text

    Dim Dosya As String
    Dosya = Dir(Yol & "*.mdb")
    egitimyil_list.ColumnHeaders.Add
    Do While Dosya <> ""
        egitimyil_list.ListItems.Add , Dosya, Split(Dosya, ".")(0)
        With egitimyil_list.ListItems.Item(Dosya)
        End With
        Dosya = Dir
    Loop
End Sub