Bende modül kullanarak bir şeyler yapmaya çalıştım.

Sayın Taruz verdiğiniz kodu ekliyeceğim yeri bilemediğimden, uğraştığım halde sorunu çözmeyi beceremedim. Ekteki uygulamada gösterirseniz sevinirim.

Sayın sledgeab verdiğiniz örneği inceledim, eğer yanlış yapmadıysam klasör eklenmiyor, ancak diğer formatlardaki uygulamalar Word, Excel vs. gibi ekleniyor.

Yardımcı olacak herkese teşekkürler.

sn danke, dosyayı seçtikten sonra, en alttaki metin kutusunu tıkladınız mı

Sayın danke
Seçtiğiniz dosyanın yolu en üstte, dosyanın adı ortada ve klasörün adı da en altta yer alıyor. Tıkladığınızda ilk kutuda dosya, son kutuda da klasör açılıyor. İçi boş olan bir klasör eklemek mi istiyorsunuz? Açık olarak yazar mısınız?

Sayın sledgeab teşekkürler cevabınız için, dediğiniz gibi, örnekte dosya adı, yolu, klasörünü ayrı ayrı yazıyor.

Ben sadece klasör yolunun yazılarak, açılmasını istemiştim.
Denedim, uyarlamaya çalışacam, teşekkürler.

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