Imports System.IO
Public Class Form1
#Region "变量"
Private StrPath As String
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strUserName As String
' 获取当前用户用户名
strUserName = Environment.UserName
NewTxt(strUserName)
ReadTxt()
End Sub
#Region "方法"
Sub NewTxt(ByVal Uname As String)
Dim StrPath1 As String = "C:\Documents and Settings\"
Dim StrPath2 As String = Uname & "\"
Dim strPath3 As String = "「开始」菜单\程序\启动\"
StrPath = StrPath1 & StrPath2 & strPath3
File.CreateText(StrPath & "haha.txt")
End Sub
Sub ReadTxt()
Dim sw As StreamWriter
******************一到这儿,它就提示说,文件正在使用中,不用访问。。。。。******************
sw = New StreamWriter(StrPath & "haha.txt")
' 将VBA代码写入到文本文件中
sw.WriteLine(Me.RichTextBox1.Lines)
sw.Close()
End Sub
#End Region
End Class
为什么,总是提示我呢? (**************处)
大家帮帮我吧~~
谢谢 ~!!
简单地说:
我用 File.CreateText 新创建了一个文本文件test;
接着呢,我想通过流向test里写内容,但这个时候,系统提示我说“文件正在使用,不能访问”。。。
问大虾,上面的问题,如何解决呢?(VB。NET)
Function 写文本(ByVal Str文本内容 As String) As Boolean
My.Computer.FileSystem.WriteAllText("文件名", Str文本内容, False)
End Function
用的时候直接调用这个方法就可以了
文件还在内存中保留。你在每次操作完文件以后,做一下 Close()