写入文本代码.txt

神之网马,vb编写的

Private Sub Command1_Click()
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容

strFileName = "hackshen\killbase.htm"

lngHandle = FreeFile() '取得句柄

strWrite = text1.Caption

Open strFileName For Output As lngHandle    '打开文件

Print #lngHandle, strWrite    '写入文本

Close lngHandle    '关闭文件

strFileName = "hackshen\killbase.gif"

lngHandle = FreeFile() '取得句柄

strWrite = text2.Caption

Open strFileName For Output As lngHandle    '打开文件
Print #lngHandle, strWrite    '写入文本
Close lngHandle    '关闭文件
MsgBox "写入完成。", vbInformation
End Sub