Ağ da bulunan klasör içinde bulunan dosyaların adlarını excele almak

[mustilem23]

Merhabalar ,


Bilgisayarım da bulunan klasörler içinde bulunan dosya adlarını excele aşağıdaki kod ile alabiliyorum fakat ağda bulunan dosya içindeki belgelere ulaşamıyorum ,yardımcı olabilmeniz mümkün müdür ?

Sub dosya_isimleri()
Set klasorsec = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
yol = klasorsec.Items.Item.Path
Set nesne = CreateObject("Scripting.FileSystemObject")
Set klasor = nesne.GetFolder(yol)
Set dosyalar = klasor.Files
For Each dosya In dosyalar
c = c + 1
Cells(c, "a") = Replace(dosya.Name, "." & nesne.GetExtensionName(dosya.Name), "")
Next
End Sub

 

[mustilem23]

arkadaşlar floot oluyor fakat bu durumu çözümlemenin bir yolu var mıdır ?