FolderiItem change

I like to store my file “Bestelling.sqlite” in CurrentFolder/2015/27
I have tray it with the following Code:

[quote]Dim Jaar, Week As Integer
Jaar=2015
Week=27
//Map aanmaken
Dim dbFile As new FolderItem (str(Jaar))
Dim db As FolderItem
If not dbFile.Exists Then dbFile.CreateAsFolder
db=getfolderitem("").child(str(Jaar)).child(Str(Week))
If not db.Exists Then db.CreateAsFolder
Dim dbBestand As FolderItem
DbBestand=GetFolderItem("/"+str(Jaar)+"/"+str(Week)+"/"+“Bestelling.sqlite”)
Dbase=New SQLiteDatabase
Dbase.DatabaseFile=dbBestand
if Dbase.CreateDatabaseFile Then[/quote]

But the file is stored in the currentFolder.
Wath should be changed to get the good result?