我要在本地创建一个log文件,响应程序为:
Dim sfilename as string
Dim Refno as string
Dim Msgbody as stringRefno=.....    (从串口接收的一段字符)
Msgbody=....    (同上)
sFilename = Format(Now(), "yymmddhhmmss") + RefNo + ".log"
Call SaveFile(MsgBody, App.Path + "\telex\" + sFilename)
Private Sub SaveFile(MesText As String, sFilename As String)
  Open sFilename For Binary As #2    '*************
  Put #2, , MesText
  Close #2
End Sub
现在地问题是当我执行Open sfilename For Binary as #2的时候会返回错误Bad file name or number.而当我把sFilename = Format(Now(), "yymmddhhmmss") + RefNo + ".log"中的RefNo去掉时就没有这个错误。或者我单步测试的时候将Sfilename中的内容Copy出来在Immediately窗口中用Open....打开也没有问题。我现在已经郁闷死了,希望有高人能够指点一二。
附复制某次的sfilename的内容:filename=040316200853S56156.log