選擇MSComm1案例。CommEvent
案件受理
暗淡緩沖區
緩沖區= MSComm1。投入
Text1。Text = Text1。文本+緩沖區
Dim Fso作為新的文件系統對象
將文本文件調暗為文本流
Set Fso = CreateObject("Scripting。文件系統對象”)
設置TextFile = Fso。create textfile(" d:/" & amp；日期和時間。".創建壹個以當前日期命名的文件。
文本文件。寫Text1。文本
文本文件。關閉
結束選擇
末端接頭
您也可以使用其他方法來創建文件與FSO模型。想法大概是壹樣的。您將接收到的數據存儲在壹個變量中，然後創建壹個文件，如“d:/receive”&；日期和時間。".txt”然後在D盤上創建壹個名為receive20100905.txt的文件，然後就可以寫之前存儲數據的變量了。