(13/10/2009, 00:13)mehmetdemiral yazdı:(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.Kod:KlsrYl = BrowseDirectory("Klasör Ekle")????????????????
Mesajı yazmadan önceki son güncel örnek olan 12 nolu, sayın sledgeab'ın eklediği dosyadaki modüle göre hazırlanmış bir koddur.. İlgili örnekte çalışmaktadır..