程序中的文件夹怎么办

程序中的文件夹怎么处理
在写程序中，比如数据库文件放在Database文件夹下，但打包安装后并没有这个文件，怎么在安装程序时候同时也生成这个文件夹呢？

[解决办法]
PATHFILE=App.Path & "\Database" 
if Dir$(PATHFILE, 16) = "" Then
 MkDir (PATHFILE)
end if