B4J Question File.Exists hangs my app momentarily

[jmon]

Hello,

When I check if a folder exists with

File.Exists(Dir, "")

if the folder doesn't exist, my app freezes for 5 to 10 seconds.

The folder is on a remote computer.

Is there a way to avoid freezing?

Thanks

Jmon

 

[Roycefer]

Run it in another thread using the Threading library.

Sub AppStart(....)
   Dim thr As Thread
   thr.Initialise("thr")
   thr.Start(Me,"CheckForFile",Array(Dir,""))
   Wait For File_Result(Result As Boolean)
   Log("Does it exist? " & Result)
End Sub

Sub CheckForFile(dirObj As Object, fnObj As Object)
   Dim dir As String = dirObj
   Dim fn As String = fnObj
   Dim exists As Boolean = File.Exists(dir,fn)
   CallSubDelayed2(Me, "File_Result", exists)
End Sub

Warning: untested.

 

[Roycefer]

Update: I tested it. It works.

 

[Erel]

The next versions of B4J, B4A and B4i will include several async methods including ListFilesAsync which can be used as an alternative to File.Exists and it will not block the main thread.

 

[jmon]

Update: I tested it. It works.

Great, thank you!

will include several async methods

That sounds awesome, thank you for your work.