vb.net中追加文件,vb追加寫入

vb.net怎么往已經建立好的dat文件里寫東西，還不覆蓋原本的數(shù)據(jù)？

如果想繼續(xù)編輯之前的文檔，在TXT文件尾部繼續(xù)添加文本，那么還需要在函數(shù)后邊加個參數(shù)。

成都創(chuàng)新互聯(lián)公司于2013年成立，先為金溪等服務建站，金溪等地企業(yè)，進行企業(yè)商務咨詢服務。為金溪企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務解決您的所有建站問題。

VB 代碼

方法1：

? Dim?sw?As?StreamWriter =?New?StreamWriter("C:\temp\test.txt")

? sw.Write("abc"? vbCrLf)

sw.Close()

Dim?sw2?As?StreamWriter =?New?StreamWriter("C:\temp\test.txt",?True)

sw2.Write("456"? vbCrLf)

sw2.Close()

方法2：

? My.Computer.FileSystem.WriteAllText("test.txt",?"This is test Text",?True)

方法3：

? System.IO.File.AppendAllText("c:\temp\test.txt",?"this is extra test file")

詳見：“網(wǎng)頁鏈接”?

VB.NET 如何 在一個已存在的csv中追加一條數(shù)據(jù)

Imports?Microsoft.VisualBasic.FileSystem?'在聲明區(qū)加這句，這包含vb6的一些文件讀寫功能

Private?Sub?Button4_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button4.Click

Dim?p?As?Integer?=?FreeFile()

Static?index?As?Integer?=?0

FileOpen(p,?"D:\list.csv",?OpenMode.Append)

index?+=?1

WriteLine(p,?"姓名"??index,?"年齡"??index,?"職業(yè)"??index,?"住址"??index)

FileClose(p)

End?Sub

'?FileIO.TextFieldParser?類可以讀取csv文件，或者數(shù)據(jù)庫有關類也可以讀取

vb.net .Excel 追加保存

Sub?Excel()

Const?FilePath?As?String?=?"C:\1.xls"???'文件名

Dim?ExApp?As?Object?=?CreateObject("Excel.Application")

ExApp.Visible?=?True

If?Not?IO.File.Exists(FilePath)?Then

ExApp.Workbooks.Add()

ExApp.ActiveWorkbook.SaveAs(FilePath)

Else

ExApp.Workbooks.Open(FilePath)

End?If

Dim?Wk?As?Object?=?ExApp.ActiveWorkbook

Dim?iRow?As?Integer?=?Wk.ActiveSheet.Range("A65535").End(3).Row?+?1

'添加需要的代碼

Wk.ActiveSheet.Cells(iRow,?1).Value?=?"xxxxx"

ExApp?=?Nothing

Wk?=?Nothing

End?Sub

VB如何追加文本到TXT文檔?

在VB中以追加方式打開文本文件的方式，是Append。

以下假設已有的文件是D:\abcd.txt文件。

現(xiàn)將Text1控件中的文本追加到已有的文件中去：

Private Sub Command1_Click()

Open "d:\abcd.txt" For Append As #1 '以追加方式打開文件

Print #1, '為防止原文件末尾沒有換行，而加入的換行

Print #1, Now '加入一個空行，為新加入內容的加入時間，若不需要可刪除或注釋它

Print #1, Text1.Text

Close #1

End Sub

vbnet如何判斷目錄下增加了文件

首先我們得判斷文件/目錄是否存在然后獲取文件信息（創(chuàng)建時間）。有文件的獲取時間了，就可以知道這個文件的創(chuàng)建時間，就能判斷目錄的文件是什么時候增加的，那么離自己最近的時間創(chuàng)建的的文件就是目錄的增加文件了。

判斷文件/目錄是否存在

Try ? ? ? ? ? ?' 先判斷文件是否存在。 ? ? ? ? ? ?If Not File.Exists(TextBox4.Text) Then

File.CreateText(TextBox4.Text) '單純創(chuàng)建文件一般不常用，正常情況下是創(chuàng)建文件然后進行讀寫操作

'System.IO.File.Create(TextBox4.Text) ? ? ? ? ? ?End If

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

獲取文件信息（創(chuàng)建時間）?FileDateTime(fii(i).FullName)? ? ?File.GetCreationTime(path)

System.IO.File.Create(Path)'創(chuàng)建文件

System.IO.File.CreateText(Path)'創(chuàng)建文件

System.IO.File.Copy(Path,targetPath) ? ? ?'復制到新位置,不允許覆蓋現(xiàn)有文件 ? ? ? ?也可以'FileCopy(TextBox4.Text, "C:" "\" file_name(UBound(file_name))) System.IO.File.Move(SourceFileName, DestFileName)

System.IO.File.Delete(Path)

'追加 System.IO.File.AppendText'替換

System.IO.File.Replace

分享標題：vb.net中追加文件,vb追加寫入
文章出自：http://muchs.cn/article26/hssocg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站排名、自適應網(wǎng)站、軟件開發(fā)、Google、定制開發(fā)、小程序開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)