如何創建mdb訪問副本並將其副本轉換爲同一文件夾中的csv？

Question

=是conns新OleDb.OleDbConnection（ 「提供者= Microsoft.Jet.OLEDB.4.0;」 & 「數據源=」 + NEWPATH + 「\ DDCOS.mdb」）

If Not File.Exists(newpath + "\DDCOS.mdb") Then 
     catNewDB.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" + newpath + "\DDCOS.mdb") 
     Dim cmdd As New OleDb.OleDbCommand("CREATE TABLE DDCOS(" & _ 
      "RecNum int identity," & "ZipFile NVarchar(50)," & "DvdName NVarchar(50)," & "SeqNo1 NVarchar(50)," & "SeqNo2 NVarchar(50)," & _ 
     "JobCode NVarchar(50)," & "ClientCode NVarchar(50)," & "TotalImages NVarchar(50)," & "TotalRecs NVarchar(50)," & "BatchCount NVarchar(50)," & "BatchDate NVarchar(50)," & "BatchSize NVarchar(50)," & "CONSTRAINT [pk_RecNum] PRIMARY KEY (RecNum)) ", conns) 
     conns.Open() 



     cmdd.ExecuteNonQuery() 

     conns.Close() 
     GC.Collect() 
     GC.WaitForPendingFinalizers() 
    End If 

上述代碼是我的代碼在創建數據庫。現在我即將創建一個副本並將副本轉換爲csv。有人可以幫忙嗎？

Answer 1

Dim countOfMdb = Directory.EnumerateFiles(path, "*.mdb").Count() 

或

Dim countOfMdb = Directory.GetFiles(path, "*.mdb").Length 

如果要包括子目錄

：

Dim countOfMdb = Directory.GetFiles(path, "*.mdb", System.IO.SearchOption.AllDirectories).Length