vb.net 中如何进行文件的读写

一般来讲asp.net的服务器运行应用所用的账号只有对应用所在目录(放网页的目录)的访问权限，你可以把文件存储在应用所在目录或者子目录试试。

创新互联专注于富源网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供富源营销型网站建设，富源网站制作、富源网页设计、富源网站官网定制、小程序开发服务，打造富源网络公司原创品牌,更为您提供富源网站排名全网营销落地服务。

My.Computer.FileSystem.WriteAllText(Server.MapPath("") “\" Now.toString("yyyyMMdd") ".txt", "URL：XXXXXX查询完成，匹配成功！" vbCrLf, true, System.Text.Encoding.Default)

vb.net 里怎样才能只写入一行到指定文件里

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim bool As Boolean = False

bool = wirte("梦语.txt", "新内容！！！")

If bool Then

MessageBox.Show("数据已写入")

Else

MessageBox.Show("写入数据时出错")

End If

End Sub

'FilePath 为文件路径

'Str要写入的内容

Public Function wirte(ByVal FilePath As String, ByVal Str As String) As Boolean

Dim sr As StreamReader

Dim sw As StreamWriter

Try

sr = New StreamReader(FilePath)

Dim oldStr As String = sr.ReadToEnd()

sr.Close()

sw = New StreamWriter(FilePath)

'判断以前的文本是否有记录

If oldStr.Length 0 Then

'写入以前的数据

sw.WriteLine(oldStr)

End If

'在文件尾部添加新的内容

sw.Write(Str)

sw.Close()

Return True

Catch ex As Exception

Return False

Finally

If sr IsNot Nothing Then

sr.Close()

End If

If sw IsNot Nothing Then

sw.Close()

End If

End Try

End Function

End Class

vb.net中，读取和写入文件

写入：Dim sr As New IO.StreamWriter(Application.StartupPath "/写入的文本.txt")

sr.WriteLine("写入的内容") sr.Close()读取：If (File.Exists(Application.StartupPath "/msg.txt")) Then

Dim fm As New IO.FileStream(Application.StartupPath "/读取的文本.txt", FileMode.Open)

Dim sr As IO.StreamReader = New IO.StreamReader(fm)

Do While sr.Peek() = 0

TextBox1.Text = sr.ReadLine() （读取文本到文本框）

Loop end if

vb NET 文件写入磁盘问题

你用的WriteLine, Line就是行，所以会加换行符

如果用Sw1.Write("....");就不会换行

vb.net 将“1111”写入TXT文件中

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, "1111", True)

End If

就可以了

请教，vb.net写入文件问题，为什么我用两种办法写文件只能写入最后一行

写入模式为覆盖会出现这个现象

要使用添加模式

就会累加了