Merhaba,
Asağıdaki kod ile pencere açarak dosya ismini ve yolunu text kutularına alıyorum. Ancak bu kodlarda klasör seçme işlemi yapılamıyor. Sadece dosyaların ismi ve yolu yazdırılabiliyor. Klasör seçip tamam tuşu ile çıkabileceğim bi uygulama olmalı. Bu kodları nasıl değiştirerek bunu yapabilirim?
(Daha önce bu kodlar için bana yardım eden Evren Bey'e de tekrar teşekkür ederim.) Bu gün çok soru sordum kusura bakmayın ama hep çalışmalarım ters gidiyor.
Dim fso As Object, ad As Object
ChDir ("C:\")
dosya = Application.GetOpenFilename(filefilter:="Tüm Dosyalar (*.*),*.*", Title:="BİR DOSYA SEÇİNİZ...")
If dosya = False Then Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")
Set ad = fso.Getfile(dosya)
TextBox2.Value = ad.Name
TextBox1.Text = dosya
Asağıdaki kod ile pencere açarak dosya ismini ve yolunu text kutularına alıyorum. Ancak bu kodlarda klasör seçme işlemi yapılamıyor. Sadece dosyaların ismi ve yolu yazdırılabiliyor. Klasör seçip tamam tuşu ile çıkabileceğim bi uygulama olmalı. Bu kodları nasıl değiştirerek bunu yapabilirim?
(Daha önce bu kodlar için bana yardım eden Evren Bey'e de tekrar teşekkür ederim.) Bu gün çok soru sordum kusura bakmayın ama hep çalışmalarım ters gidiyor.
Dim fso As Object, ad As Object
ChDir ("C:\")
dosya = Application.GetOpenFilename(filefilter:="Tüm Dosyalar (*.*),*.*", Title:="BİR DOSYA SEÇİNİZ...")
If dosya = False Then Exit Sub
Set fso = CreateObject("Scripting.FileSystemObject")
Set ad = fso.Getfile(dosya)
TextBox2.Value = ad.Name
TextBox1.Text = dosya
Son düzenleme: