想通过批处理文件，修正某些文件的内容。

解决方案：

（注意都不是删除原文件）

对于有一个.的文件名如：a.sln

通过FileInfo类来写入新文件的内容。

参照以下A方法

对于有二个.以上的文件名如：a.b.sln

通过FileStream类和StreamWriter来 删除原始文件的内容再写入新文件的内容。

参照以下B方法

Public Shared Sub Write_File_A(ByVal str As StringBuilder)

Dim fFile1 As FileInfo = Nothing
fFile1 = New FileInfo(mstrPath)
Dim sw As StreamWriter

'修改文件属性：只读文件-》存档文件

fFile1.Attributes = CType(FileAttribute.Normal,FileAttributes)

’利用CreateText()来写入新内容。AppendText()是在尾部追加内容。
sw = fFile1.CreateText()
'sw = fFile1.AppendText()
sw.Write(str)
sw.Flush()
sw.Close()

'修改文件属性：存档文件-》只读文件

fFile1.Attributes = CType(FileAttribute.ReadOnly,FileAttributes)
fFile1.Refresh()
fFile1 = Nothing
End Sub

Public Shared Sub Write_File_B(ByVal str As StringBuilder)
Dim fFile1 As FileInfo = Nothing

fFile1 = New FileInfo(mstrPath)

'修改文件属性：只读文件-》存档文件
fFile1.Attributes = CType(FileAttribute.Normal,FileAttributes)
fFile1.Refresh()
fFile1 = Nothing

’利用FileMode.Truncate来删除文件内容。

Dim Fs As FileStream = New FileStream(mstrPath,_
FileMode.Truncate,FileAccess.ReadWrite,FileShare.None)

Dim SwFromFileStream As StreamWriter = New StreamWriter(Fs,System.Text.Encoding.GetEncoding(strEncoding))

SwFromFileStream.Write(str)
SwFromFileStream.Flush()
SwFromFileStream.Close()
Fs.Close()

'修改文件属性：存档文件-》只读文件

fFile1 = New FileInfo(mstrPath) fFile1.Attributes = CType(FileAttribute.ReadOnly,FileAttributes) fFile1.Refresh() fFile1 = Nothing End Sub