[已解决]这个代码有错误吗？

759857387

Function FileExists (filename) As Boolean
FileExists = (Dir(filename) <> "")
End Function

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-11 22:42

1. Function FileExists(filename) As Boolean
   
2.     If Len(filename) = 0 Then Exit Function
   
3.     FileExists = Len(Dir(filename, vbNormal + vbHidden + vbReadOnly + vbSystem + vbArchive + vbDirectory)) > 0
   
4. End Function

复制代码

可以检测隐藏，只读，系统属性的文件以及文件夹是否存在。

跳转到最佳答案楼层

hwc2ycy

成不成，你试试嘛，

759857387

hwc2ycy 发表于 2012-12-11 21:13
成不成，你试试嘛，

老师我试过了是错的，你怎么看

759857387

hwc2ycy 发表于 2012-12-11 21:13
成不成，你试试嘛，

说正经，哪位老师能够给详细解释一下，这个对代码测试很有用。

hwc2ycy

==，我看下。

hwc2ycy

你原来的是可以的。
只是不能检测带有隐藏，只读，系统属性的文件而已。

hwc2ycy

1. Function FileExists(filename) As Boolean
   
2.     If Len(filename) = 0 Then Exit Function
   
3.     FileExists = Len(Dir(filename, vbNormal + vbHidden + vbReadOnly + vbSystem + vbArchive + vbDirectory)) > 0
   
4. End Function

复制代码

可以检测隐藏，只读，系统属性的文件以及文件夹是否存在。

759857387

hwc2ycy 发表于 2012-12-11 22:42
可以检测隐藏，只读，系统属性的文件以及文件夹是否存在。

谢谢老师