判断指定文件是否存在

时　间:2008-10-27 16:10:56
作　者:ExcelHome   ID：1455  城市：龙岩
摘　要:判断指定文件是否存在,可用于局域网文件
正　文:

  '*****************   Code   Start   *******************
  Function FIsFileDIR(stPath As String, Optional lngType As Long) As Boolean
  'To   check   for   a   file
  '       ?fIsFileDIR("c:\winnt\win.ini")
  'To   check   for   a   Dir
  '       ?fIsFileDir("c:\msoffice",vbdirectory)
  '
          On Error Resume Next
          If stPath <> "" Then
                  If Len(Dir(stPath, lngType)) > 0 Then
                          FIsFileDIR = True       '文件存在
                  Else
                          FIsFileDIR = False       '文件不存在
                  End If
          Else
          FIsFileDIR = False
          End If
  End Function
  '************   code   end   **********


Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店