Copying files from Symbian-S60 phone to disk

[ssimop]

Dear Gintaras,

I am happy that it succeeded, thanks to your excellent instructions. I attach the final code. Best regards.

Macro Macro2745

Code:

Copy      Help

;Copying files from Symbian-S60 phone to disk GC
;www.quickmacros.com/forum/viewtopic.php?p=30109

;---> Comment 25-10-2015 18:53:09 : Lemma
;Then you can get Folder interface of the phone model folder (fMC=fi.GetFolder),
;enumerate its children to find Mass memory folder and so on, until Logs.
;When you have Logs Folder interface, call its method CopyHere. I don't know if it
;will succeed on Windows XP, cannot test. Gintaras.

out

Shell32.Shell x._create
Shell32.Folder fMC=x.NameSpace(Shell32.ssfDRIVES) ;;My Computer
Shell32.FolderItem fi
foreach fi fMC.Items
,str name=fi.Name
;,out name
,if StrCompare(name "My mobile model")=0
,,fMC=fi.GetFolder
,,break

foreach fi fMC.Items
,name=fi.Name
;,out name
,if StrCompare(name "Mass memory")=0
,,fMC=fi.GetFolder
,,break

foreach fi fMC.Items
,name=fi.Name
;,out name
,if StrCompare(name "Logs")=0
,,fMC=fi.GetFolder
,,break

;get source folder items
str files="*.csv"

ARRAY(Shell32.FolderItem) a
foreach fi fMC.Items
,name=fi.Name
,out name
,if(files.len and !matchw(name files 1)) continue
,out name
,a[]=fi
,
if(!a.len) out "0 matching files"; ret

;copy
str destFolder="C:\tmp"
Shell32.Folder folder2=x.NameSpace(destFolder)
if(!folder2) end "failed"

int i
for i 0 a.len
,folder2.CopyHere(a[i] 4|16) ;;4 no progress, 16 overwrite silently