Cep telefonundan dosya silmek ve dosya boyutu almak

[Jeeday]

Merhabalar,

Elimde hazırladığım bir vba excel dosyası var. Bu dosyada android telefonun istediğim klasöründe bulunan dosyaları listeliyor.

Sonrasında herhangi bir dosyayı silmek istiyorum, ancak kodu modifiye edemedim.

Ayrıca bu listelenen dosyaların boyutlarını da yanındaki sütuna çekmek istiyorum.

Yardımlarınızı rica ederim.

TELEFON.xlsm

[erseldemirel]

Sizin kodda belki şunlar eklenirse calısır. Denemedim

Kod: Tümünü seç

....
....
S0.[C:D] = Empty
        If IsObject(RootFold) Then
            Set myFolder = RootFold.ParseName("Dahili depolama\ALPER\" & S0.Cells(i, "A")).GetFolder
           
          j=1 ' j için 1 ekledım
 For Each xFile In RootFold.ParseName("Dahili depolama\ALPER\" & S0.Cells(i, "A")).GetFolder.Items
              
                S0.Cells(j, "C") = xFile.Name & ".mp3"
                S0.CELLS(j,"G") = xFile.Size /1024   'kb cinsinden kodun calısması lazım

   If xFile.Name = "deneme.mp3" Then 'deneme ismini ben verdim
                    xFile.Delete 
                End If
     j = j + 1
            Next
        Else
           MsgBox "Phone not connected"
        End If

....
....

[Jeeday]

xfile.size çalışmamıştı.

delete kısmını denemedim...