Adres cubuğu eklemek istiyorum

[dilekgüç]

Bir zamanlar çok aradığım mp3 lıstesi cıkarmak için ecxel dosyası arıyordum .
sağolsun yardımda bulunan arkadaşlara teşekkür ederim...


Var olan Adres ekleme yerini değistirmek istiyorum .
Adres cubuğu eklemek istiyorum örnekdeki gibi ...

 

[Kemal Demir]

İyi hafta sonları,

Ek'teki dosya umarım işinizi görür.Tek seferde sorunu çözümleyemedim.Bir yardımcı kod ile istediğiniz oldu dusuncesindeyim.

NOT:Kodlar Forum İçerisinde Mevcut.Arama yaparsanız kodlara sizde ulaşabilirsiniz.

 

[dilekgüç]

Sayın Rakkas saatlerdir arıyorum ama bulamadım.
eklemiş oldugunuzda hata veriyor açılmıyor . saygılar

 

[Kemal Demir]

İyi akşamlar,

Dosyayı tekrar eklıyorum.

Umarım sorun çözülür.Eğer sorun çözülmez ise aşagıdaki kodu yazınız.

Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder _
(0, "Lütfen bir klasor seçin !", &H100)
MyPath = ObjFolder.Items.Item.Path
yol = MyPath
Dizin = yol
kitap = Dir(Dizin & Application.PathSeparator & "*.*", vbDirectory)
Do While kitap <> ""
If kitap = ThisWorkbook.Name Then GoTo ResumeSub:
i = i + 1
ComboBox1.AddItem yol & "\" & kitap
ResumeSub:
kitap = Dir
Loop

Kod Forumdaki Değerli Arkadaslardan Birine Aittir.(İsmini Çıkaramadım)

Yukarıdaki kodu bir butona bağlayıp deneyiniz.