path to iPhone DCIM Directory

[mol]

I think it's not good itead to transform folder names to capitals because Android is case-sensitive.

[edk]

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

Maybe oItem:isFileSystem

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

[AUGE_OHR]

I think it's not good itead to transform folder names to capitals because Android is case-sensitive.

try it without UPPER() ...

[AUGE_OHR]

hi,

Maybe oItem:isFileSystem

YES
thx