我要在本地创建一个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
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
解决方案 »
- 看了好多种语法,有些迷茫
- vb如何获取控件的classname
- 在VB中预览水晶报表要引用哪些对象,在VB程序中打开水晶报表以及传递水晶报表参数怎么传?怎么把记录集给水晶报表?
- 关于VB自定义函数
- 如何用串口发送和接收文件?
- 高手,帮帮忙,日期比较问题,在线等候
- setwindowtext函数我这么使用,可不成功,请大虾指点
- 高手停步!使用DAO时QueryDefs和Parameter这些东西怎么用啊?着急。谢谢。
- 请教个控件的用法
- 请问利用vb如何实现超长数位的计算(double类型的变量好像有效位只有十几位)
- SSTAB1控件总共有3页,怎样判断当前页是第几页?
- 关于工具栏的问题??????????????????????
Refno是一个5位的数字,但是是string格式的