十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
一般来讲asp.net的服务器运行应用所用的账号只有对应用所在目录(放网页的目录)的访问权限,你可以把文件存储在应用所在目录或者子目录试试。
创新互联专注于富源网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供富源营销型网站建设,富源网站制作、富源网页设计、富源网站官网定制、小程序开发服务,打造富源网络公司原创品牌,更为您提供富源网站排名全网营销落地服务。
My.Computer.FileSystem.WriteAllText(Server.MapPath("") “\" Now.toString("yyyyMMdd") ".txt", "URL:XXXXXX查询完成,匹配成功!" vbCrLf, true, System.Text.Encoding.Default)
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
写入: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
你用的WriteLine, Line就是行,所以会加换行符
如果用Sw1.Write("....");就不会换行
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, "1111", True)
End If
就可以了
写入模式为覆盖会出现这个现象
要使用添加模式
就会累加了