13518219792
您好，在Visual Basic.NET中，是沒有像這樣的文件I/O操作的，一般都是通過System.IO.StreamReader和System.IO.StreamWriter類，System.IO.BinaryReader和System.IO.BinaryWriter類來讀寫文件以及利用My.Computer.FileSystem類讀寫文件，利用System.IO.Filestream類來創(chuàng)建文件，通過引用Microsoft Scripting Runtime來執(zhí)行文件（夾）和驅動器的特殊操作，常用的是System.IO.StreamReader和System.IO.StreamWriter類。
創(chuàng)新互聯(lián)是一家從事企業(yè)網(wǎng)站建設、成都網(wǎng)站設計、成都網(wǎng)站制作、行業(yè)門戶網(wǎng)站建設、網(wǎng)頁設計制作的專業(yè)的建站公司，擁有經(jīng)驗豐富的網(wǎng)站建設工程師和網(wǎng)頁設計人員，具備各種規(guī)模與類型網(wǎng)站建設的實力，在網(wǎng)站建設領域樹立了自己獨特的設計風格。自公司成立以來曾獨立設計制作的站點數(shù)千家。
例如說要讀取一個文件，我們可以利用System.IO.StreamReader類編寫一個方法（也就是函數(shù)），但是首先要在當前類的開頭添加一個引用，引用名稱：System.IO，添加引用的代碼如下
Imports System.IO
添加引用之后，就在當前類的內部創(chuàng)建方法：
Private Function ReadFile(ByVal FileURL As String) As String
Dim sr As StreamReader = New StreamReader(FileURL)
ReadFile = sr.ReadToEnd()
sr.Close()
sr = Nothing
End Function
示例說明：
該方法是一個返回String（字符串）數(shù)據(jù)的函數(shù)，F(xiàn)ileURL作為參數(shù)是用來存放需要訪問的文件的URL，當然，要獲取一個文件的URL，就是利用這一句代碼實現(xiàn)的：
Dim sr As StreamReader = New StreamReader(FileURL)
當獲取了URL之后，就要對文件進行讀取操作了，然后將讀取的結果返回給方法：
ReadFile = sr.ReadToEnd()
讀取文件完畢之后，要對文件執(zhí)行關閉操作：
sr.Close()
當然別忘了清理資源：
sr = Nothing
StreamReader類可以從流或文件中讀取字符，在創(chuàng)建StreamREader類的對象時，可以指定一個流對象，也可以指定一個文件URL，創(chuàng)建對象后就可以調用他的方法，從流中讀取數(shù)據(jù)，其常用方法如下：
Peek：返回下一個可用字符，但不使用它。
Read：讀取輸入流中下一個字符或一組字符并移動流或文件指針。
ReadBlock：從當前流中讀取最大數(shù)量字符并從index開始將數(shù)據(jù)寫入buffer。
ReadLine：從當前流中讀取一行字符并將字符作為String返回。
REadToEnd：從流的當前位置到末尾讀取流。
Close：關閉打開的對象，釋放資源。
注：流，一種新的數(shù)據(jù)格式，這種格式可通過System.IO命名空間下的類訪問。流用Stream類表示，所有的流都是從這個類中繼承的。流向用戶提供了一個一般的數(shù)據(jù)視圖，隱藏了操作系統(tǒng)和底層設備的實現(xiàn)細節(jié)，所有的流都支持讀寫操作。在打開文件時將返回對應的流對象，用戶可以對流對象進行讀寫操作。
如果要對文件執(zhí)行按行讀取操作，這時就會用到枚舉，這時候，代碼就要更改一下了：
Private Function ReadFile(ByVal FileURL As String) As String
Dim sr As StreamReader = New StreamReader(FileURL)
For Each fLine As String In sr.ReadToEnd()
Line = sr.ReadLine()
ReadFile = ReadFile fLine
Next sr.ReadLine
sr.Close()
End Function
示例說明：
For Each…Next：派生于For…Next循環(huán)，用于枚舉一系列對象中的成員，而這些對象組成集合，如果集合中至少存在一個元素，程序就會靜茹For Each塊執(zhí)行。其格式如下：
For Each 元素 [As 數(shù)據(jù)類型] In 元素集合
[循環(huán)體]
[Exit For]
[循環(huán)體]
Next [元素]
比如：
Dim CountNumber As ULong = 0
Dim FolderName() As String = New String() {" "}
For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")
CountNumber = CountNumber + 1
ReDim Preserve FolderName(1 To CountNumber)
FolderName = strFolder
Next strFolder
注：My.Computer.FileSystem.GetDirectories：主要用來枚舉指定目錄的子文件夾。
Preserve：主要用來避免重定義數(shù)組而不損失數(shù)組元素的原有數(shù)據(jù)。
另外，利用My.Computer.FileSystem也可以實現(xiàn)文件的讀取，其代碼如下：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")
示例說明：
定義一個字符串變量利用My.Computer.FileSystem.ReadAllText來實現(xiàn)對“C:\test.txt”的讀取。
如果是已經(jīng)編碼的文本，則可以使用My.Computer.FileSystem對象中的ReadAllText方法并提供路徑和文件編碼類型，將文本寫入字符串變量中，例如：
Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _
System.Text.Encoding.UTF32)
當然，System.Text.Encoding的成員不止一個，它還有如下成員：
System.Text.Encoding.UTF8
System.Text.Encoding.UTF16
System.Text.Encoding.ASCII
System.Text.Encoding.Unicode
這些是常見的成員，也是主要的成員。
另外，利用My.Computer.Filesystem類無法實現(xiàn)文件的行操作，還有，如果您的計算機未安裝完整的Microsoft.NET Framework Runtime，則無法實現(xiàn)這種操作！
寫入文件的操作同樣簡單，Visual Basic.NET 允許用戶使用StreamWriter來對文件寫入內容，下面就讓我們來創(chuàng)建一個子例程，來實現(xiàn)文件的寫入：
Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)
Dim sr As StreamWriter = New StreamWriter(FileURL)
sr.Write(FileCon)
sr.Close()
sr = Nothing
End Sub
示例說明：
sr.Write(FileCon)：將FileCon寫入文件FileURL之中。
另外，StreamWriter常用方法如下：
WriteLine：向流中寫入一行，后面跟結束符。
Write：寫入流，向流對象中寫入字符并移動流或文件指針。
Close：關閉打開的對象，釋放資源。
附：Visual Basic 6.0文件操作解說：
打開： Open 文件名 For Input | Output | Append As [#]文件號
Input打開讀入，文件不存在報錯。Output打開覆蓋寫入，文件不存在則創(chuàng)建。Append打 開追加寫入，文件不存在則創(chuàng)建。
讀： Line Input #文件號, 字符串變量
讀一行數(shù)據(jù)存入字符串變量，數(shù)據(jù)包括空格、Tab、等，不包括回車符和換行符，所以要顯示文件的換行效果，要手動添加回車符和換行符（vbCrLf）
Input #文件號, 變量1[, | ;] [變量2]...
這種方式可以存入多個變量，而且變量類型不限于字符串型。
寫： Print #文件號, 參數(shù)1[, | ;] [參數(shù)2]...
將各參數(shù)逐個寫入文件。參數(shù)間用逗號隔開時，文件中相應插入多個空格；用分號隔開時，插入一個空格。可以用Spc(n)、Tab(n)等進行排版。
Write #文件號, 參數(shù)1[, | ;] [參數(shù)2]...
這種寫入方式將自動添加界定符，對不同參數(shù)的類型加以界定。
Visual Basic 6.0文件操作函數(shù)：
Seek： Seek(文件號)
返回文件正在訪問的位置，返回值為長整型。對順序文件和二進制文件，返回值以字節(jié)為單位；對隨機訪問文件，返回值以記錄號為單位。
Seek： Seek [#]文件號，位置
定位文件到指定位置。位置單位同上所述。
Input： Input (字節(jié)數(shù)，[#]文件號)
從文件的訪問當前位置讀入指定字節(jié)數(shù)的數(shù)據(jù)。僅適用于順序文件和二進制文件。
EOF： EOF(文件號)
判斷文件的訪問位置是否在文件尾，如果是，返回True，否則，返回False。
LOF： LOF(文件號)
返回文件長度，單位為字節(jié)。
FileLen： FileLen (文件名)
返回文件名對應文件的長度，單位是字節(jié)。該函數(shù)取磁盤文件標識中的長度，即文件打開前的長度，可以取未打開的文件長度。
GetAttr： GetAttr (Pathname)
返回指定文件或文件夾的屬性。
FileAttr： FileAttr (文件號)
返回文件號對應文件的打開方式。
GetDateTime： GetDateTime (Pathname)
返回文件被創(chuàng)建或修改的最后日期和時間。
Free： FreeFile[(0|1)]
返回未被占用的文件號，F(xiàn)ree或Free(0)返回1～255之間未占用的文件號，F(xiàn)ree(1)返回256～511之間未占用的文件。
Dir： Dir (Pathname [,Attributes])
測試指定路徑是否有某文件，Attributes附加文件屬性條件，取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。
Kill： Kill (文件名)
刪除指定文件，文件名可包含路徑。
FileCopy： FileCopy 源文件，目標文件
拷貝文件。
Name： Name 舊文件名 As 新文件名
文件重命名。前后路徑不一致時，操作為移動文件并重命名。
MkDir： MkDir path
新建文件夾。
RmDir： Rmdir path
刪除文件夾。
ChDrive： ChDrive Drive
改變當前驅動器 ChDrive "D"
CurDir： CurDir [(driver)]
返回當前工作路徑，指定driver則返回目標驅動器的當前工作路徑。
舉例：
'新建文件，并寫入數(shù)據(jù)，關閉
Open "a.txt" For Output As #1
Print #1, "ABCDEFG"; vbCrLf; "HIJK"
Close #1
'打開文件，并全部寫入新文件，關閉
Open "a.txt" For Input As #2
Open "b.txt" For Output As #3
Dim str As String
While (Not EOF(2))
Line Input #2, str
Print #3, str
Wend
Close
注：關于Visual Basic 6.0的文件操作資料來自于
如果您覺得我的回答幫助了您解決難題，別忘了采納哦，如果我的回答未能解決您的問題，您可以在互聯(lián)網(wǎng)上尋找更多的解決方案！
無法直接獲取，但可以采用變通的方法，思路：
把word轉換成二進制流前先用變量把拓展名和后綴獲取到（例如 var filename = “xxxx.doc”）
定義一個int變量記錄二進制流（word）的長度。并將該變量轉成4字節(jié)的btye[]數(shù)組
將第一步中獲取到的文件名字符串轉成byte[]數(shù)組。
將字節(jié)按照： word文件byte[]+文件名byte[]+word文件長度byte[](第二步)按照順序拼接成一個byte[]數(shù)組
還原:
1.首先讀取總byte[]的后4個字節(jié),以確定文件二進制流的有效長度(假設為L).
2.將索引0至L 之間的字節(jié)數(shù)組按常規(guī)方式恢復成流.
3.將索引L至N-4之間的字節(jié)數(shù)組還原成字符串,即可獲得原文件名.
然后,愛咋咋地~~~~
工作需要 我需要使用對文本文件進行讀寫操作 編程需要完成如下工作
把程序執(zhí)行錯誤追加到錯誤日志中
使巧巧讀書網(wǎng)的編輯能夠讀取錯誤日志
記得以前使用vb 的時候 對文本文件的操作挺麻煩的 特別是在寫文件的時候 需要區(qū)分什么順序文件 隨機文件 很教材都專門針對文本文件的讀寫開辟了一個章節(jié)來講解 夠麻煩的了 現(xiàn)在使用 net讀寫文本文件 因為時間倉促 沒來得及細看MSDN 同時受到 的思路影響 把問題復雜化了 在追加記錄到文本文件尾部的時候就寫不下去了 后來仔細看了一下MSDN中例子 問題終于得到了解決
好了下面進入正題 分別把中對文本文件進行讀和寫的通用操作做個示例 免得后來新手多走彎路
我們這里是對文件流進行操作 所以模塊前面要加上
Imports System IO
寫操作
使用System IO的StreamWriter 下面是代碼
Dim strFilePath As String = SaveFileDialog FileName
Dim sw As StreamWriter = New StreamWriter（strFilePath True） true是指以追加的方式打開指定文件
For i = To j
temp = i ToString
sw WriteLine（temp）
sw Flush（）
Next
sw Close（）
sw = Nothing
首先要說明的是構造函數(shù)new
Public Sub New（path append Encoding）
path 要打開文件的完整路徑 如果文件不存在則自動建立一個新的文件
append 缺省值為false 指示是否以追加方式打開指定文件 false——如果存在path指定的文件 則覆蓋原文件 否則建立一個新文件 true——如果存在path指定的文件 則打開該文件 以追加數(shù)據(jù)的方式在文尾寫數(shù)據(jù) 否則建立一個新文件
Encoding 缺省值為System Text Encoding Default 即使用系統(tǒng)缺省的編碼 指示以什么樣的編碼寫文件
WriterLine（str） 在文本中添加一個新行 同時在行尾加上回車換行符
讀操作
Dim line As String
Dim sr As StreamReader = New StreamReader（strPath System Text Encoding Default）
Do While sr Peek（）
line = sr ReadLine（）
Loop
sr Close（）
sr = Nothing
構造函數(shù)new
Public Sub New（Path Encoding）
path 要打開文件的完整路徑 如果文件拋出一個錯誤
Encoding 缺省值為System Text Encoding Default 即使用系統(tǒng)缺省的編碼 指示以什么樣的編碼讀文件
lishixinzhi/Article/program/net/201311/11973
1、實現(xiàn)上傳按鈕方法代碼。
2、判斷圖片對象是否為空代碼。
3、取得數(shù)據(jù)庫字段 dt.Rows(0)("Pic")方法代碼。
4、字節(jié)數(shù)組轉換為Image類型方法代碼。
5、處理SQL中操作Image類型方法代碼。
6、實現(xiàn)的上傳結果。
