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

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 '系統(tǒng)  
Private Const DDL_POSTMSGS = &H2000  
 
'-------------------------------------------------  
'功能：用ListBox控件加載文件列表  
'參數(shù)：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