B4J Question verify and copy file

[lucdrb]

Hi

I want to verify if my db file exist in the DirData directory and if not copy it from the DirApp
my code:

If Not File.Exists(File.DirData,"qizine.rsd") Then
File.Copy(File.DirApp,"qizine.rsd", File.DirData,"qizine.rsd")
End If

on the 2 lines the compiler said: missing parameters
The #AdditionalJar: sqlite-jdbc-3.7.2 is in projects attribute

This code works well in B4A.
Any Help would be welcome

Thanks
Luc

 

[LucaMs]

Please, post the error msg, since there are no missing parameters in your File.Copy.
(I suppose that the AdditionalJar in your project is correct, with the right path and file name. The sqlite... jar must be in the additional libraries path)

 

[lucdrb]

You'll find hereafter the all text of the Main

#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#AdditionalJar: sqlite-jdbc-3.7.2
#End Region

Sub Process_Globals
Public db As SQL
Private fx As JFX
Private MainForm As Form
End Sub

Sub AppStart (Form1 As Form, Args() As String)
LoadDatabase

End Sub

Sub LoadDatabase
If Not (File.Exists(File.DirData,"qizine.rsd")) Then
File.Copy(File.DirApp,"qizine.rsd", File.DirData,"qizine.rsd")
End If
db.InitializeSQLite(File.DirData,"qizine.rsd")
End Sub

and a screen copy of the error msg

When I make a new B4J, It work until I saved it.

Thanks in advance

Luc

 

[LucaMs]

The missing parameter is in File.DirData (see the tip of the command).

Probably you want to do as in B4A, copy from assets to application directory; then you should use:

If Not(File.Exists(File.DirApp,"qizine.rsd")) Then

File.Copy(File.DirAssets, "qizine.rsd", File.DirApp, "qizine.rsd")

"qizine.rsd" must be added by Files Manager - Add Files, of course

 

[Gianni M]

If File.Exists(File.DirApp,"qizine.rsd")=False Then
     'make copy
End If

 

[lucdrb]

Ok Thanks but:

The file.DirApp is read only, how should I use it to write into de DB (it's why I used the file.dirData directory)?


-To Giannimimaione thanks but I've already try it and the result is the same "missing parameter
Luc

 

[LucaMs]

The file.DirApp is read only

You're right but you can create a sub dir in DirApp and write there:

Dim MySubDir As String = File.Combine(File.DirApp, "SubDir")

If Not(File.Exists(MySubDir, "")) Then
    File.MakeDir(MySubDir, "")
End If

 

[lucdrb]

Ok

Many thanks for your help
I'll can go further.

Luc

 

[lucdrb]

I've found the missing parameter.
It's the (AppNameAsString) who as to be after the dirdata. Now with it everything is Ok

Luc