4个回答
展开全部
Dim FS, F As String, FL As String
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FolderExists("d:\abc\acb") = True Then
F = "d:\abc\acb"
Else
MsgBox "文件夹不存在!找不到目录!", 16, "错误!"
Exit Sub
End If
FL = F & "\1.txt"
If FS.FileExists(FL) = True Then
MsgBox "这个文件存在!", 64, "文件存在!"
Else
MsgBox "这个文件不存在!", 16, "错误!"
End If
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FolderExists("d:\abc\acb") = True Then
F = "d:\abc\acb"
Else
MsgBox "文件夹不存在!找不到目录!", 16, "错误!"
Exit Sub
End If
FL = F & "\1.txt"
If FS.FileExists(FL) = True Then
MsgBox "这个文件存在!", 64, "文件存在!"
Else
MsgBox "这个文件不存在!", 16, "错误!"
End If
展开全部
If dir(fname)="" then
msgbox "文件不存在"
else
msgbox "文件存在"
End
......................................
必须用到dir函数!!
另外还有api 等三种方法可以。
...........黑龙江省巴彦县兴隆镇 张志晨 奉献知识............
msgbox "文件不存在"
else
msgbox "文件存在"
End
......................................
必须用到dir函数!!
另外还有api 等三种方法可以。
...........黑龙江省巴彦县兴隆镇 张志晨 奉献知识............
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
If dir(fname)="" then
msgbox "文件不存在"
else
msgbox "文件存在"
End
dir函数的使用
msgbox "文件不存在"
else
msgbox "文件存在"
End
dir函数的使用
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
if "c:\1.txt"=true then
msgbox "文件存在"
else
msgbox "文件不存在"
end
我是徒手写的 自己去测试下
msgbox "文件存在"
else
msgbox "文件不存在"
end
我是徒手写的 自己去测试下
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询