用代码检查指定文件是否存在

来源:百度文库 编辑:神马文学网 时间:2024/06/03 06:05:28

用代码检查指定文件是否存在


摘 要:用代码检查指定文件是否存在
正 文:
检查指定文件是否存在
***************** Code Start *******************
Function fIsFileDIR(stPath As String, _
Optional lngType As Long) _
As Integer
'Fully qualify stPath
'To check for a file
' ?fIsFileDIR("c:\winnt\win.ini")
'To check for a Dir
' ?fIsFileDir("c:\msoffice",vbdirectory)
'
On Error Resume Next
fIsFileDIR = Len(Dir(stPath, lngType)) > 0
End Function
'***************** Code End *********************