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