(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

Kod:

KlsrYl = BrowseDirectory("Klasör Ekle")????????????????

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

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..