[已解决]判断文件路径以及文件是否存在

nothingwmm · 发表于 2011-1-25 15:17

本帖最后由 nothingwmm 于 2011-1-25 15:22 编辑

Option Explicit ‘变量使用前需要声明
Function FileExists(fname) As Boolean
FileExists = Dir(fname) <> "" ‘判定文件是否存在
End Function
Function FileExists3(fname) As Boolean
Dim FileSys As Object ‘文件系统对象
Set FileSys = CreateObject(“Scripting.FileSystemObject”) '利用scripting，需要Windows Scripting Host Object Model.这个控件
FileExists3 = FileSys.FileExists(fname)
End Function
Function PathExists(pname) As Boolean
On Error Resume Next
PathExists = (GetAttr(pname) And vbDirectory) = vbDirectory ‘判定我饿件路径是否存在
End Function
Function PathExists2(path) As Boolean
Dim FileSys As Object ‘FileSystemObject
Set FileSys = CreateObject(“Scripting.FileSystemObject”) '对文件路径的判定也可以采取类似的方法
PathExists2 = FileSys.FolderExists(path)
End Function

复制代码

附录：

游客，如果您要查看本帖隐藏内容请回复

最佳答案

放浪形骸

2011-1-25 16:55

放浪形骸 · 发表于 2011-1-25 16:37

呃。。。好像可以直接用DIR函数的啊。。。

nothingwmm · 发表于 2011-1-25 16:42

放浪形骸发表于 2011-1-25 16:37
呃。。。好像可以直接用DIR函数的啊。。。

这里只是判断是否存在，很小的一个东西，你如果友好的代码直接回复上来，我可以给你最佳答案的待遇哦，相互切磋。谢谢

放浪形骸 · 发表于 2011-1-25 16:55

zr0203 · 发表于 2011-9-6 19:12

提示: 作者被禁止或删除内容自动屏蔽

xiangruidexter · 发表于 2012-5-8 11:45

学习一下了呀，现在还不知道好不好用，顶上去先

caogis · 发表于 2015-8-28 11:25

我准备学，不知道难不难，先试试看！

rafzhang · 发表于 2016-6-2 16:00

参考一下。

shmylovei · 发表于 2018-10-17 11:16

感谢楼主分享

hhzjxss · 发表于 2018-10-20 09:48

回复可见！

		自动登录	找回密码
密码			注册

zr0203 zr0203 当前离线积分 0 IP卡狗仔卡	发表于 2011-9-6 19:12 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
zr0203 zr0203 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡