50.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

检测文件是否存在
Function FileExists(FileName As String) As Boolean
On Error Resume Next
FileExists = Dir$(FileName) <> ""
If Err.Number <> 0 Then
FileExists = False
End If
On Error GoTo 0
End Function