delfile.bas

一个交通专用的gis-T系统

Attribute VB_Name = "delfile"
'*********************************************************************
'*
'*                本源码完全免费，共交通同仁学习参考                 *
'*                      www.tranbbs.com                              *
'*                   Developed by Yang Ming                          *
'*       Nanjing Institute of City Transportation Planning           *
'*                 请保留本版权信息，谢谢合作                        *
'*                      中国交通技术论坛                             *
'*                                                                   *
'*                                                                   *
'*********************************************************************
Function DBFileExists(fname$) As Boolean
On Error Resume Next '设置错误处理
Dim x As Integer

x = FreeFile '取得一个空闲文件句柄
Open fname$ For Input As x '试图打开该文件
If Err = 0 Then '如果打开成功
DBFileExists = True
Else '否则
DBFileExists = False
End If
Close x
End Function



Function DeleteAllRecords(ByVal dbpath As String)
Dim db As Database
Dim x As Integer
Dim tdf As TableDef

Set db = OpenDatabase(dbpath)
For x = 0 To db.TableDefs.Count - 1
Set tdf = db.TableDefs(x)
If (tdf.Attributes And dbSystemObject) = 0 Then '避开系统的 Table
db.TableDefs.Delete db.TableDefs(x).Name
End If
Next x
End Function