怎么样通过一个按钮，实现在APP.PATH下面产生一个名未AA的文件夹？

Question

大概这样，不敢保证没错。If Dir(app.path & "\aa", vbDirectory) = "" Then
   MkDir (app.path & "\aa")
End If

Answer 1

'在VB里引用 MS Scripting Runtime 组件Dim AA As New Scripting.FileSystemObject
AA.CreateFolder "C:\AA"

Answer 2

dim Path as string
if right(app.path,1)<>"\" then
 path=app.path & "\AA"
else
 path=app.path & "AA"
endifMKdir(path)

Answer 3

Option ExplicitPrivate Sub Command1_Click()
On Error Resume Next
Dim SysPath As String
SysPath = IIf(Len(App.Path) = 3, App.Path, App.Path & "\")
MkDir SysPath & "AA"End Sub

Answer 4

duckcn(xty) 的答案如果App.path 是 根目录就会报错，如： C:\   ,D:\

Answer 5

Option ExplicitPrivate Sub Command1_Click()
On Error Resume Next
Dim SysPath As String
SysPath = IIf(Len(App.Path) = 3, App.Path, App.Path & "\")
MkDir SysPath & "AA"End Sub