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

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

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

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")

詳見：“網頁鏈接”?

VB.NET 如何 在一個已存在的csv中追加一條數據

Imports?Microsoft.VisualBasic.FileSystem?'在聲明區加這句，這包含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,?"職業"??index,?"住址"??index)

FileClose(p)

End?Sub

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

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文件。

現將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如何判斷目錄下增加了文件

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

判斷文件/目錄是否存在

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

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

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

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

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

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

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

System.IO.File.Copy(Path,targetPath) ? ? ?'復制到新位置,不允許覆蓋現有文件 ? ? ? ?也可以'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