VB.NET ListBox加載還是比較常用的，于是我研究了一下VB.NET ListBox加載目錄與文件列表 ，在這里拿出來和大家分享一下，希望對大家有用。文本文件方式是以行為單位進行讀取的基本單位，主要應用的方法和函數有Open,Close,Line Input,FreeFile，EOF等。下面先簡述其功能然后結合代碼示例進行說明。Open：顧名思義，它的作用是打開文件，換而言之打開某個文件就是獲得某個的控制權，一般情況下當文件處于打開狀態時只有打開者才能對它進行操作。打開文件時要指定一個整數作為文件號，以后的操作都是針對這個代號進行的，而不是針對文件名。文件號也叫句柄，在程序中一個文件號只能指向一個文件，不能出現兩個文件同時具有相同句柄的情況。Close:關閉文件，即釋放文件的控制權。

VB.NET ListBox加載代碼：

Option Explicit  
 
'API聲明  
Private Declare Function SendMessageA Lib "user32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long  
 
'常量  
Private Const LB_DIR = &H18D  
Private Const DDL_DRIVES = &H4000 '磁盤  
Private Const DDL_DIRECTORY = &H10 '文件夾  
Private Const DDL_ARCHIVE = &H20  
Private Const DDL_EXCLUSIVE = &H8000&  
Private Const DDL_READWRITE = &H0 '讀寫  
Private Const DDL_READONLY = &H1 '只讀  
Private Const DDL_HIDDEN = &H2 '隱藏  
Private Const DDL_SYSTEM = &H4 '系統  
Private Const DDL_POSTMSGS = &H2000  
 
'-------------------------------------------------  
'功能：用ListBox控件加載文件列表  
'參數：lst - 指定的ListBox控件  
' sPath - 指定目錄  
'-------------------------------------------------  
Private Sub MyListBoxLoadFolder(ByRef lst As ListBox, _  
ByVal sPath As String, _  
Optional bShowFolders As Boolean = True)  
On Error Resume Next  
Dim lngReturn As Long  
Dim lngFlags As Long  
 
If bShowFolders = False Then  
lngFlags = DDL_EXCLUSIVE Or DDL_ARCHIVE Or DDL_SYSTEM Or DDL_HIDDEN  
Else  
lngFlags = DDL_EXCLUSIVE Or DDL_ARCHIVE Or DDL_SYSTEM Or DDL_HIDDEN Or DDL_DIRECTORY  
End If  
 
'清空列表  
lst.Clear  
'開始裝載文件列表  
lngReturn = SendMessageA(lst.hWnd, LB_DIR, lngFlags, ByVal sPath)  
End Sub