Sub Process_Globals
Public auth As FirebaseAuth
Public storage As FirebaseStorage
Private bucket As String = "gs://xxxxxxxx"
End Sub
Sub Service_Create
auth.Initialize("auth")
storage.Initialize("storage", bucket)
' Dim k As Boolean=File.Exists(File.DirInternal,"click1.waw")
' If Not(k) Then
storage.DownloadFile("/FileAudio", File.DirRootExternal, "click1.waw")
Sleep(200)
File.Copy(File.DirRootExternal, "click1.waw",File.DirInternal, "click1.waw")
Sleep(200)
File.Delete(File.DirRootExternal, "click1.waw")
end sub