VB 遍歷指定資料夾中的所有文字內容

這個程式需要的東西不容易用幾句話來解釋，開啟檔案功能允許您選擇多個檔案，選擇檔案後，將選定的檔案合併為乙個檔案。

如果 txt 檔案都是 ansi 編碼的，那就比較簡單了，可以用 open 來做，如果格式不統一，就需要 unicode utf8 等處理函式。

dim fso as object, fd as object, f as object

set fso = createobject("")set fd = "處理資料夾完整路徑名寫入")for each f in

遍歷每個檔案進行操作。

其檔名、檔案路徑。

檔案、檔案型別等等。

防止帶有麵行的卡頓迴圈：

doevents

nextset fd = nothing

set fso = nothing-

此替換只能用於文字檔案。 如果是exe，我該如何替換它？

如果要替換文字，可以直接替換它。

這並不難，但編寫這個程式是必要的，像 Ultraedit 這樣的工具可以輕鬆處理它。

如果你正在嘗試編寫乙個程式，那是另一回事，強烈支援。

開個玩笑，你能遍歷檔案中的字串嗎？ 我很期待。

是替換檔案內容中的檔名還是字串。

VB 可以使用 filelistbox 控制項獲取指定資料夾中的所有檔名。

FileListBox 控制項，在執行時，在 Path 屬性指定的目錄中，FileListBox 控制項查詢並列出檔案。 此控制項用於顯示所選檔案型別的檔案列表。 例如，可以在應用程式中建立乙個對話方塊，允許您選擇乙個檔案或一組檔案。

下面介紹如何使用 drivelistbox、dirlistbox 和 filelistbox 的組合來獲取硬碟上任何資料夾中的檔名。

private sub dir1_change()=

end sub

private sub drive1_change()=

end sub

private sub file1_click()dim i as long

存在於資料夾中" & "檔案。 "

end sub

恐怕樓上不行，看來需要使用遞迴列出所有檔案或資料夾。

dir（） 函式可用於遍歷所有檔案