Android Question [SOLVED]Problem with ExternalFile object

[zolive33]

hi,

I try to create a new file in the dowload folder. The file is created but does not seem to be initialized (IsInitialized returns false).
is it normal?


here is an example :

dim Storage As ExternalStorage
Dim ef As ExternalFile

Storage.Initialize (Me, "Storage")
Storage.SelectDir(false)
Wait For Storage_ExternalFolderAvailable

ef = Storage.CreateNewFile(Storage.Root,"test.txt")
log (ef.IsInitialized) 'always returns false

Running on Android 10 :

log extract :
** Activity (main) Pause, UserClosed = false **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
sending message to waiting queue (OnActivityResult)
running waiting messages (1)
content://com.android.providers.downloads.documents/tree/downloads
** Activity (main) Resume **
false

Here's a solution that works but it's a bad solution :

Do While Not(ef.IsInitialized)
    ef = Storage.FindFileOrCreate(Storage.Root,"test.txt")
Loop
log (ef.IsInitialized) 'ok

log extract :
*** Service (starter) Create ***
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
sending message to waiting queue (OnActivityResult)
running waiting messages (1)
content://com.android.providers.downloads.documents/tree/downloads
** Activity (main) Resume **
true


Have you another solution ?

 

[amykonio]

Hi.
Have you tried to put your code in a try catch block to see if an error occurs?

Andreas.

 

[zolive33]

Hi.
Have you tried to put your code in a try catch block to see if an error occurs?

Andreas.

yes, but I didn't find any error

 

[Erel]

If it is uninitialized then the underlying API failed to create the file.

It does work fine here.

Better to add Sleep(30) inside that loop.

 

[zolive33]

If it is uninitialized then the underlying API failed to create the file.

It does work fine here.

Better to add Sleep(30) inside that loop.

Thank you, Erel. I try the late afternoon.

 

[zolive33]

problem solved :

Dim iRedo As Int=0
Do While (Not(ef.IsInitialized) And iRedo<2)
    ef = Storage.FindFileOrCreate(Storage.Root,"test.txt")
    Sleep(30)
    iRedo = iRedo+1
Loop
log (ef.IsInitialized) 'ok