UC知道vb dir函数的问题
来源：百度知道 编辑：UC知道 时间：2024/05/18 04:32:53
我的目的是使用dir函数在当前目录下查找一个隐藏的文件夹,它的名称是123,我的代码是这样的:
n=dir(123",vbHidden)
if n=" " then
msgbox "文件不存在!"
else
msgbox "文件存在!"
end if
结果对话框返回永远是"文件不存在",可是这个文件明明就在我的这个目录里面...
请问这是怎么回事?要实现下面的功能,我的程序还应该如何编写?谢谢!
对不起,上面的第一句写错了...
应该是有引号的
n=dir(123",vbHidden)
if n=" " then
msgbox "文件不存在!"
else
msgbox "文件存在!"
end if
结果对话框返回永远是"文件不存在",可是这个文件明明就在我的这个目录里面...
请问这是怎么回事?要实现下面的功能,我的程序还应该如何编写?谢谢!
对不起,上面的第一句写错了...
应该是有引号的
Private Sub Command1_Click()
n = Dir(App.Path & "\1.txt", vbHidden)
If n = " " Then
MsgBox "文件不存在!"
Else
MsgBox "文件存在!"
End If
End Sub
测试成功了
这个vb函数有bug的
建议用api
或者试试完整路径
dir("c:\123")
你确认在当前目录？你是不是说程序的目录，当前目录和程序的目录不是一个概念，文件夹应该加目录属性 vbDirectory
Private Sub Command1_Click()
n = Dir(App.Path & "\123", vbHidden + vbDirectory) '123在程序目录用此行,VB设计环境app.path取值有时可能不正确，请运行编译后的程序或者保存代码后双击重新打开程序
'n = Dir(curdir & "\123", vbHidden + vbDirectory) '123在当前目录用此行
If n = "" Then
MsgBox "文件不存在!"
Else
MsgBox "文件存在!"
End If
End Sub