VB 版 (精华区)

发信人: zxfsnow (希望的春天), 信区: VB
标  题: 检验一个文件是否存在 
发信站: 哈工大紫丁香 (2000年06月05日12:52:06 星期一), 转信

发信人: Keri (呵呵2000), 信区: VB
标  题: 检验一个文件是否存在
发信站: 虎踞龙盘东南站 (Sat Jan  8 22:16:33 2000), 转信

The following function is a good way to check to see if a file exists (it w
on't crash if the drive doesn't exist).
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

--
※ 来源:．虎踞龙盘东南站 sbbs.seu.edu.cn．[FROM: bbs.njupt.edu.cn]





--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]