一个关于路径的问题，非常简单，希望高手指点

Question

Set db = DBEngine.Workspaces(0).CreateDatabase(app.path & "\mdb\peixianjia.mdb", dbLangGeneral)

Answer 1

Dim sPath as string
If Gight(App.path,1)="\" then
   sPath=App.path
Else
   sPath=App.path & "\"
End if
Set DB=DBEngine.Workspaces(0).CreateDatabase(sPath & "mdb\Peixianjia.mdb",dbLangGeneral)

Answer 2

app.path & "\mdb\peixianjia.mdb"

Answer 3

各位大侠，不对呀，好像是因为没有\mdb这个目录，所以出错了
哪位高手知道怎么创建目录吗？
谢谢

Answer 4

mkdir可以创建目录的吧，API函数也可以