Sub CreateFile(FileText As String, Fil As String) With CreateObject("ADODB.Stream") .Type = 2 .Charset = "Unicode" .Open .WriteText FileText .SavetoFile Fil .Flush .Close End With End Sub
新建文本文件并写入内容, 第一参数:写入内容,第二参数:文件.默认Unicode格式.
Sub CreateFile(FileText As String, Fil As String) With CreateObject("ADODB.Stream") .Type = 2 .Charset = "Unicode" .Open .WriteText FileText .SavetoFile Fil .Flush .Close End With End Sub
新建文本文件并写入内容, 第一参数:写入内容,第二参数:文件.默认Unicode格式.