欢迎光临:
非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源)
智能多路控制(串口编程开关) 带源码!
上一篇
下一篇
05-05
09
检查文件是否存在函数
作者:枕善居主 / 查看次数: 6019 / 评论: 8
Private Function FileExists(Filename As String) As String
On Error Goto FileDoesNotExist
Open Filename For Input As #1
Close #1
FileExists = True
Exit Function
FileDoesNotExist: FileExists = False
End Function
On Error Goto FileDoesNotExist
Open Filename For Input As #1
Close #1
FileExists = True
Exit Function
FileDoesNotExist: FileExists = False
End Function
相关日志:
文章来自: 
引用通告: 
Tags: 
评论: 8 | 
回复
lmgz
[2008-10-07 17:28:06 | 
| 
]Private Function FileExists(Filename As String) As String
回复风飞雪
[2006-08-06 12:58:24 | | ]Private Function FileExists(Filename As String) As String
On Error Goto FileDoesNotExist
dim fn as long
Open Filename For Input As #fn
Close #fn
FileExists = True
Exit Function
FileDoesNotExist: FileExists = False
End Function
if dir(filename)="" then msgbox "no"
On Error Goto FileDoesNotExist
dim fn as long
Open Filename For Input As #fn
Close #fn
FileExists = True
Exit Function
FileDoesNotExist: FileExists = False
End Function
if dir(filename)="" then msgbox "no"
要是这种方法打开一个没有权限的文件会有什么样的结果；比如打开一个以经被另一程序打开的文件；
hs99不对, DIR检查属性是隐藏的就有问题.
这代码不怎么地！
回复我在大象
[2005-05-15 10:03:44 | | ]我在这找倒了,你们在吗?
呵呵，各有千秋吧[smile]
楼主啊，我觉得此函数太复杂了，用DIR就可检查文件是否存在。
发表评论
您没有权限发表评论！
