Dim fso As New FileSystemObject fso.CreateTextFile (全路径文件名)
Dim txt As String Open txtbox.Text For Input As #f Put #f,txt Close #f
'新建一个*.bin文件 Dim objCreateTxtFile As Object Dim a Set objCreateTxtFile = CreateObject("Scripting.FileSystemObject") Set a = objCreateTxtFile.CreateTextFile(文件路径,文件名称加后缀, True) a.Close Set objCreateTxtFile = Nothing
fso.CreateTextFile (全路径文件名)
Open txtbox.Text For Input As #f
Put #f,txt
Close #f
Dim objCreateTxtFile As Object
Dim a
Set objCreateTxtFile = CreateObject("Scripting.FileSystemObject")
Set a = objCreateTxtFile.CreateTextFile(文件路径,文件名称加后缀, True)
a.Close
Set objCreateTxtFile = Nothing
thx!