这个代码该怎么改？

事业男儿发布于 2012-04-27 13:29， 301 次点击

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

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

3 回复

风吹过b2012-04-27 14:46

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

yuma2012-04-29 16:40

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

wube2012-05-02 09:27

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