Soru Cep telefonundan dosya listesi çekmek

[Jeeday]

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