VB用mkdir在当前目录建立文件夹

If Dir(App.Path & "\Database\a", vbDirectory) = "" ThenMkDir (App.Path & "\Database\a")End If我的代码是这样当程序生成EXE文件就提示找不到路径要怎么修改。谢谢

应该是Database不存在，建了Database再建a就行了
If Dir(App.Path & "\Database", vbDirectory) = "" Then
MkDir (App.Path & "\Database")
End if
If Dir(App.Path & "\Database\a", vbDirectory) = "" Then
MkDir (App.Path & "\Database\a")
End if

你要先建立Database目录 再建立Database\a Private Sub Form_Click() p1 = App.Path & "\Database" p2 = App.Path & "\Database\a" If Dir(p1, vbDirectory) = "" Then MkDir p1 If Dir(p2, vbDirectory) = "" Then MkDir p2 End Sub 做个函数给你吧 示例： Private Sub Form_Click() If MakeDirectory("d:\1\2\3") Then MsgBox "ok" Else MsgBox "err" End Sub Public Function MakeDirectory(ByVal Path As String) As Boolean On Error GoTo ErrHandle Dim c As String Dim p As String For i = 1 To Len(Path) c = Mid(Path, i, 1) If c = "/" Or c = "\" Then p = Left(Path, i - 1) If Dir(p, vbDirectory) = "" Then MkDir p End If Next i If Dir(Path, vbDirectory) = "" Then MkDir Path MakeDirectory = True ErrHandle: End Function

试试这样 If Dir(iif(right(App.Path,1)="\",app.path,app.path+"\") & "Database\a", vbDirectory) = "" Then MkDir (iif(right(App.Path,1)="\",app.path,app.path+"\") & "Database\a")

open app.path & "\12\123.txt" for output as #1