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

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