VB 将文本款中的内容存为文件 的代码

首先在引用中添加microsoft scripting runtime
Dim fso As New FileSystemObject
Dim txt As TextStream
Private Sub Command1_Click()
Set txt = fso.CreateTextFile(App.Path & "\" & Text2.Text)
txt.Write Text1.Text
txt.Close
End Sub

新建一个工程!
上面放上2个TEXT,一个按钮
text1 为原文件的路径 (如: c:\aa.exe)
text2 为要保存的文件名! (如: bbc.exe)
代码如下:
'-------------------------------------------
Option Explicit
Dim file As String
'-----------------------------------------
Private Sub Command1_Click()
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" Then
FileCopy Trim(Text1.Text), file & Trim(Text2.Text)
MsgBox "复制完成!"
Else
MsgBox "请输入内容后重试!", vbInformation, "错误!"
Exit Sub
End If
End Sub
'------------------------------------------
Private Sub Form_Load()
file = App.Path
End Sub