如何從目錄中讀取每個文本文件

基本上在我的程序中有表格A和表格B.在表格A中，用戶添加了某些信息，當他點擊一個按鈕時，將創建一個具有唯一標識的文件夾，並且在該文件夾中創建一個文本文件。每當用戶想要保存更多信息時，每次他這樣做時，都會創建一個文件夾，並將文本文件保存在其中。如何從目錄中讀取每個文本文件

在我的表單B中，我添加了一個ListView並將樣式設置爲細節。我想要做的是每次載入表單時，程序將從保存在例如文件夾中的目錄讀取每個文本文件。 C：/並添加讀取的項目。我的ListView中有這些列：Username, Description，所以對我來說填充物品進入相關的列，我會做一些事情，如：

ListView1.Items.Add(New ListViewItem({"Username", "Description"}))

我怎樣才能讓這個它讀取每一個文本文件，從這些文件夾中創建和將Listview填充到我想要的列中？

來源

2014-04-25 Zer0

我設法通過添加循環來解決這個問題。

Public Sub ReadFile() 
    For Each Dir As String In Directory.GetDirectories(GetFolderPath(SpecialFolder.ApplicationData) + "\Folder\Sub-Folder\") 
     Dim file1 As String() = Directory.GetFiles(Dir, "file1") 
     Dim file2 As String() = Directory.GetFiles(Dir, "file2") 
     Dim file3 As String() = Directory.GetFiles(Dir, "file3") 
     Dim file4 As String() = Directory.GetFiles(Dir, "file4") 

     Dim Finalfile1 As String 
     Dim Finalfile2 As String 
     Dim Finalfile3 As String 
     Dim Finalfile4 As String 

     For Each Finalfile1 In file1 
      Using readfile1 As StreamReader = New StreamReader(Finalfile1) 
       Dim line As String = readfile1.ReadLine 
      End Using 
     Next 
     For Each Finalfile2 In file2 
      Using readfile2 As StreamReader = New StreamReader(Finalfile2) 
       Dim line1 As String = readfile2.ReadLine 
      End Using 
     Next 
     For Each Finalfile3 In file3 
      Using readfile3 As StreamReader = New StreamReader(Finalfile3) 
       Dim line2 As String = readfile3.ReadLine 
      End Using 
     Next 
     For Each Finalfile4 In file4 
      Using readfile4 As StreamReader = New StreamReader(Finalfile4) 
       Dim line3 As String = readfile4.ReadLine 
      End Using 
     Next 
     ListView1.Items.Add(New ListViewItem({addName, addUsername, addWebsite, addDescription})) 
    Next 
End Sub

這樣做是什麼，我已經加入的字符串，找到一個特定的文件名。這將從每個文件夾中讀取，然後添加到相關列中。

來源

2014-04-25 23:09:47 Zer0

如何從目錄中讀取每個文本文件

回答

相關問題