如何将多个cvs文件从文件夹添加到数据库中

Question

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
Dim directory = "D:\Test" 
Dim files() As System.IO.FileInfo 
Dim dirinfo As New System.IO.DirectoryInfo(directory) 
files = dirinfo.GetFiles("*.csv", IO.SearchOption.AllDirectories) 

我得到csv文件所在的目录信息。我想将所有csv文件都保存到我的vb数据库中。我的数据库示例是zipcode;州;市。我尝试了许多方法来获取csv文件，但我只能得到一个csv文件到数据库。每天csv文件添加文件夹，我必须 自动将它们添加到数据库。你能给我一个想法吗？

Answer 1

如果你知道如何做一件物品，那么你知道如何做任何数量的项目。您只需将一个项目的代码放入循环中即可。在您的代码中，files是一组FileInfo对象。编写一个方法，该方法需要一个FileInfo对象并将该文件中的数据导入到数据库中。现在只需使用For Each循环来枚举数组并为每个元素调用您的方法，例如

For Each file In files 
    ImportData(file) 
Next