Çözüldü Cep telefonundan dosya listesi çekmek

Jeeday' Alıntı:

Merhabalar,
Cep telefonumun bir klasöründe bulunan dosyaların listesini excel'e çekmek istiyorum.
Bir çok yol denedim ama başaramadım.
YOL = "This PC\SirAlperius\Dahili depolama\ALPER\ABC"
Şöyle bir kod buldum ama hata veriyor;

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("This PC\SirAlperius\Dahili depolama\ALPER\ABC")
For Each oFile In oFolder.Files
Cells(i + 1, 1) = oFile.Name
i = i + 1
Next oFile

Genişletmek için tıkla...

askan' Alıntı:

Yol hatalıdır hocam aşağıdaki kod ile yolu belirleyin. Debug penceresindeki yolu kullanın

HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...