Dosya Yolununu Textboxa yazma

[unfors]

UserForm üzerinde 1 adet TextBox ve 1 adet Butonum var. Butona tıkladığımda "Aç" komutu gibi benden dosyanın yerini bulmamı istemesini ve dosyaya tıklayınca, dosya yolunu TextBox'a yazmasını istiyorum. VBA'da bu mümkünmüdür?

 

[Asri]

Deneyiniz.

http://s5.dosya.tc/server2/xpylw5/UserFormDosyaSec.zip.html

 

[unfors]

Çok güzel olmuş. Elinize, emeğinize sağlık. Tam istediğim gibi.
Sadece bir sorum daha olacak bu kodu Klasör seçecek şekilde nasıl ayarlayabilirim.

 

[unfors]

Örneğin Sadece "Resimler" Klasörünü seçsin

 

[Asri]

Çok güzel olmuş. Elinize, emeğinize sağlık. Tam istediğim gibi.
Sadece bir sorum daha olacak bu kodu Klasör seçecek şekilde nasıl ayarlayabilirim.

CommandButton1_Click in içeriğini aşağıdaki şekilde değiştiriniz.

Private Sub CommandButton1_Click()
   With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    If .Show = -1 Then TextBox1.Text = .SelectedItems(1)
   End With
   
End Sub

 

[unfors]

Yardımlarınız için çok ama çok teşekkür ederim.