Try
Storage.SelectDir(False)
Wait For Storage_ExternalFolderAvailable
Dim lFileName As String="test.db"
Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.Dirinternal, lFileName)
Dim lFile As ExternalFile
lFile=Storage.CreateNewFile(Storage.root,lFileName)
Dim outputstream1 As OutputStream
outputstream1= Storage.OpenOutputstream(lFile)
File.copy2(InputStream1,outputstream1)
InputStream1.Close
outputstream1.close
Msgbox2("Database copied. File Name: "&lFileName,"Info","OK","","",Null)
Catch
Log(LastException)
End Try