Ağ uzerinde Bir klasor içerisindeki verileri link verip List

[Kemal Demir]

Kolay Gelsin Arkadaslar;

Ağ uzerinde Bir klasor içerisindeki verileri link verip Listelemek İstiyorum.

Bu konuda bana yardımcı olabilirmisiniz.?

Dosya Ek'tedir.

Bu konuda Bilgilendirirseniz Çok sevinirim.

İyi Çalışmalar.

 

[ataniyazi]

ekteki dosyayı inceleyin

 

[Kemal Demir]

Sevgili ataniyazi ,

Emeğin için teşekkur ederim.
Ama kod Çalışmıyor desem Kızmassın umarım.

Bunu Browse Folder I Göstermeden Sadece Ben Ağbağlantısını Gireceğim Şekilde inputbox ile nasıl yapabiliriz.

Bir kaç defa denedim Kodlar Çalışmadı.Yinede Tekrar Teşekkur Ederim.

 

[Kemal Demir]

Arkadaslar Zannedersem Çözümü Buldum.

Sn.Leventm'in Bir kodu;

[vb:1:59c6cb2f9b]Sub linkver1()
Set yol = CreateObject("Scripting.FileSystemObject").GetFolder("\\atrium\Uretim\Veri-gir\seslercik").Files
For Each dosya In yol
c = c + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(c, "a"), Address:="\\atrium\Uretim\Veri-gir\seslercik" & dosya.Name, TextToDisplay:=dosya.Name
Next
End Sub[/vb:1:59c6cb2f9b]

Bu koda nasıl bir ilave yapalım ki kayıt tarihi görünsün

Klasor İçerisinde Görünümde Detail yapıp tüm bilgileri nasıl tasırım. ama bu bilgilerde link olmasına gerek yok teşekkur ederim