打开文件时检查文件是否存在

jacky　发表于：2016-07-31 20:26:46 　

求哪位老师帮忙。

点击图示位置打开CC2016073000001.xlsm的文件，此文件放置路径未D盘，如图，在打开前检查文件此是否存在。注：（编号会随送检编号而变化）

zhaoyoulong 发表于：2016-08-01 09:08:08

Function IsFile(stPath As String) As Boolean '判断文件是否存在
On Error GoTo MyERRor
IsFile = ((GetAttr(stPath) And vbDirectory) <> vbDirectory)
Exit Function
MyERRor:
If Err <> 0 Then
IsFile = False
Exit Function
End If
End Function

Top

jacky 发表于：2016-08-01 11:15:33

zhaoyoulong 谢谢你的回复，可小弟不知道具体怎么应用到这里面，目前打开文件的方式如下

Top

zhaoyoulong 发表于：2016-08-01 11:20:01

if IsFile(me.text_lj)=true then

shell.........

else

msgbox "文件不存在，请检查！"

end if

Top

jacky 发表于：2016-08-01 11:59:23

zhaoyoulong 已经可以用了，非常感谢你的帮助，谢谢

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

打开文件时检查文件是否存在