path to iPhone DCIM Directory

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Post Reply
User avatar
AUGE_OHR
Posts: 660
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 85 times
Been thanked: 161 times

path to iPhone DCIM Directory

Post by AUGE_OHR »

hi,

when connect my iPhone to Windows 10 via USB i go a new Device "Apple iPhone"
i can open Folder with Explorer and get to "This PC\Apple iPhone\Internal Storage\DCIM"

Question : how get to that Folder with harbour / HMG :idea:

iPhone is not shown as Storage only as
Apple Mobile Device USB Composite Device
have fun
Jimmy

User avatar
danielmaximiliano
Posts: 2218
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 246 times
Been thanked: 39 times
Contact:

Post by danielmaximiliano »

*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

User avatar
AUGE_OHR
Posts: 660
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 85 times
Been thanked: 161 times

Post by AUGE_OHR »

hi
thx for Link, i will study it
have fun
Jimmy

User avatar
AUGE_OHR
Posts: 660
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 85 times
Been thanked: 161 times

Post by AUGE_OHR »

hi,

i have work on link
https://stackoverflow.com/questions/110 ... n-windows
and i got "full-path" and file-Name

Code: Select all

   cItem := "APPLE IPHONE"
   oShell := CreateObject( "shell.application" )
   IF NIL <> oShell
      oFolder := oShell:NameSpace(CSIDL_DRIVES ) // 0x0011 // My Computer
      IF NIL <> oFolder
         oItems := oFolder:Items()
         iMax := oItems:Count
         FOR i := 1 TO iMax
            oItem := oItems:Item( i - 1 )
            IF !EMPTY( oItem )
               cName := UPPER( oItem:name )
               IF cName = cItem                  // "APPLE IPHONE"
                  cPath := oItem:path            // GUID ?
next was Sub-Folder to get to folder with Image

Code: Select all

 oFolderItem := oItem:GetFolder:items  // "APPLE IPHONE"
  objFolder := oThis:GetFolder:Items   // "Internal Storage"
   oItemL := oItemF:GetFolder:Items    // "DCIM"
    oItemN := oItemM:GetFolder:Items   // "103APPLE"
    nMax := oItemN:Count
    FOR n := 1 TO nMax
      oFile := oItemN:Item( n - 1 )
      cThis := oFile:name
      cSrcP := oFile:Path
      AADD(aFiles,{cThis,cPath,cSrcP})
    NEXT
now i have try to use CopyFile API ...
https://docs.microsoft.com/en-us/previo ... dfrom=MSDN

Code: Select all

   IF !EMPTY(aFiles)
      fso := CreateObject("Scripting.FileSystemObject")
      iMax := LEN(aFiles)
      FOR i := 1 TO iMax
         cFile := aFiles[i][3]
         cFile += "\"
         cFile += aFiles[i][1]
         fso:CopyFile(cFile,cTarget)
      NEXT
      fso := NIL
   ENDIF
but something is going wrong
CopyFile.jpg
CopyFile.jpg (73.7 KiB) Viewed 12 times
i "think" something in "Path" (cSrcP) is wrong ... or is it my Syntax :idea:
IPHONE01.ZIP
(1.01 KiB) Downloaded 1 time
have fun
Jimmy

Post Reply