Utilizo MSComm en VB para recibir datos del puerto serie y quiero guardarlos en el bloc de notas en el directorio actual de acuerdo con la hora del sistema. ¡Ayúdenme!

Sub privado MSComm1_OnComm()

Seleccionar caso MSComm1.CommEvent

Caso comEvReceive

Atenuar buffer

buffer = MSComm1.Input

Text1.Text = Text1.Text + buffer

Atenuar Fso como nuevo FileSystemObject

Atenuar TextFile como TextStream

Set Fso = CreateObject("Scripting.FileSystemObject")

Set TextFile = Fso.CreateTextFile("d:/" & Date & ".txt", True) 'Crea un archivo con el nombre de la fecha actual< / p>

TextFile.Write Text1.Text

TextFile.Close

End Select

End Sub

Yo uso FSO También puede utilizar otros métodos para crear archivos a partir de modelos. La idea es probablemente la misma. Almacena los datos recibidos en una variable y luego crea un archivo como "d:/receive" & Date & ".txt". Luego se crea un archivo llamado recibir20100905.txt en la unidad D. Luego puedes escribir la variable que almacenó los datos antes