文件操作是每個軟件必備的功能，利用常用VB.NET控件就可以輕松操作文件，這里就為你介紹怎樣才能更好的利用VB.NET控件操作文件。

顯示文件

因為不同文件的存儲格式的差異，所以，只有用適當(dāng)?shù)姆椒ú拍苷_的顯示不同的文件。表現(xiàn)在表層，也就是不同的文件后綴名不同，而且不同的應(yīng)用軟件只能讀取和顯示某種或幾種不同格式的文件。如：以.DOC為后綴名的文件,用WORD就可以打開,但是用記事本就無法正確顯示.所以，VB中就給我們提供了不同的控件來顯示不同的文件。

在此我們以text控件為例子，看一看用它是怎樣顯示文件的。

Private Sub mnuopen_Click() ’當(dāng)點擊菜單中的打開文件時執(zhí)行  
Dim filepath as Sting  
Dim strLine As String  
'在未選擇文件時,text.text為空字符,,不顯示任何內(nèi)容  
text1.text = “”  
CommonDialog1.FileName = "" 
'下面語句設(shè)置文件過濾方式,可顯示擴(kuò)展名為txt文件  
CommonDialog1.Filter = "(*.txt)|*.txt" 
'建立打開方式的通用對話框,也可使用commondialog1.showopen  
CommonDialog1.Action = 1  
filepath=CommonDialog1.FileName ‘得到選擇的文件  
Open filepath For Input As #1 打開選擇的文件  
Do Until EOF(1) ‘顯示打開的文件  
Line Input #1, strLine  
text1text1.Text = text1.Text + strLine + Chr(13) + Chr(10)  
Loop  
Close #1 ‘關(guān)閉打開的文件  
End Sub 

除了VB.NET控件自帶的外，我們還可以使用fileSystemObject文件系統(tǒng)對象，file對象，以及files集合。下面我們給出兩個例子，更多更詳細(xì)的內(nèi)容請參考前面目錄部分。

下面代碼舉例說明了如何獲得一個file對象，以及如何察看它的一個屬性。

Sub ShowFileInfo(filespec)  
Dim fs, f, s  
Set fs = CreateObject("scripting.FileSystemObject")  
Set f = fs.GetFile(filespec)  
s = f.DateCreated  
MsgBox s 

文件操作是每個軟件必備的功能，利用Visual Basic提供的常用控件就可以輕松操作文件End Sub

對于如何獲得一個files集合，以及如何用For Each……Next語句來訪問這個集合中的每個file，我們可以參考下面的例子：

Sub ShowFolderList( folderspec ) ‘folderspec 為文件夾名稱  
Dim fs , f, f1,fc , s  
Set fs = CreateObject(“Scripting.FileSystemObject”)  
Set f = fs.GetFolder(folderspec) ‘得到folderspec文件夾相關(guān)的folder對象  
Set ffc = f.Files ‘得到folder對象所包含的文件夾的files集合  
For Each fi in fc ‘訪問folder集合中的每一個folder  
ss= s & f1.name ‘格式化要顯示的文本  
ss= s & vbCrLf  
Next   
MsgBox s ‘用對話框顯示信息  
End Sub   

【編輯推薦】

1. VB.NET水晶報表控件經(jīng)驗總結(jié)
2. 簡單講述VB.NET Excel
3. 學(xué)習(xí)VB.NET Data Report控件
4. 詳談VB自定義類型參數(shù)的傳遞
5. VB.NET字符串?dāng)?shù)組全面分析