Re: path to iPhone DCIM Directory
Posted: Sat Apr 11, 2020 3:58 pm
I think it's not good itead to transform folder names to capitals because Android is case-sensitive.
Maybe oItem:isFileSystemAUGE_OHR wrote: ↑Sat Apr 11, 2020 3:42 pm i have try to find a Way to identify "real Drive" from "This PC"
but again i got Problem to "translate" German Name like BILDER -> PICTURE
COPYHERE() only work for Device so i want to "hide real Drive" as they won´t work with COPYHERE() ... you need SHFile API
Code: Select all
FUNCTION GetHandy()
Local aDev:={}, oDev, oItem, i
Local oShell := CreateObject( "shell.application" )
IF hb_isObject( oShell )
oDev := oShell:NameSpace( CSIDL_DRIVES ) // 0x0011 // My Computer
IF hb_isObject ( oDev )
FOR i := 1 TO oDev:Items():Count
oItem := oDev:Items():Item( i - 1 )
IF !EMPTY( oItem ) .AND. !oItem:isFileSystem
AADD (aDev, oItem:Name)
ENDIF
NEXT
ENDIF
ENDIF
IF EMPTY ( aDev )
aDev := { "- No devices -" }
ENDIF
RETURN aDev
