Private Sub Form_Load()
If Dir("c:\123", vbDirectory) <> "" Then
MsgBox "存在"
 Else
 MsgBox "不存在"
End If
End Sub


上面是检测C盘的123文件是否存在，我想改成检测程序所在文件夹App.Path 的123是否存在，怎么改呢？谢谢

Private Sub Form_Load()
dim path as string            '这个变量可以定义为全局变量
path =app.path                '取程序目录
if right(path,1)<>"\" then    '判断最后是否有 \ 符号，防止出错
   path =path & "\"
end if

If Dir(path & "123", vbDirectory) <> "" Then
MsgBox "存在"
Else
MsgBox "不存在"
End If
End Sub

Private Sub Form_Load()
dim a as string
a = app.path & "\" &"123"
If Dir(a, vbDirectory) <>"" Then
MsgBox "存在"
Else
MsgBox "不存在"
End If
End Sub

Private Sub Form_Load()
    If Dir(app.path & "\" & "123\", vbDirectory) <> "" Then
        MsgBox "存在"
    Else
        MsgBox "不存在"
    End If
End Sub