DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Çok Güzel Olmuş Sayın Taruz.
Bir Şey rica etsem, bu projeyi ana hatlarıyla sunsanız paylaşıma nasıl olur???
Ben çok merak ediyorum nasıl yapıyosunuz gözat ı felan....
Sub Test()
Dim fold As Object
Set fold = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Klasör seçiniz...", 0)
If fold Is Nothing Then Exit Sub
MsgBox fold.Self.Path
End Sub
muhteşem olmuş gerçekten. Açık olarak tüm veritabanını göndersenizde incelesem? yeni başlıyor sayılırım.. elinize sağlık..