(12/10/2009, 20:15)Taruz yazdı: Merhaba..

Bu kod yardımı ile klasör yolu ekleyebilirsiniz..:

Kod:

On Error GoTo Err_trz_Click
    Dim KlsrYl As String
    
    Me.yol.SetFocus
    
    KlsrYl = BrowseDirectory("Klasör Ekle")
    
    yol = KlsrYl
      

Exit_trz_Click:
    Exit Sub
    
Err_trz_Click:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_trz_Click

Burda da bir modül olmalı ama sanırım unutulmuş. Bu şekliyle çalışması mümkün değil.