求高手帮看下:我这个代码怎么老报错"实时错误52:错误的文件名或号码"?

Question

本帖最后由 chengxuayuan 于 2011-03-06 13:21:59 编辑

Answer 1

很多软件你保存时,好像都默认自动把第一段文字做文件名显示在文件名输入框那个地方,word好像也是,不知道它们怎么实现的

Answer 2

for binary writeread for binarystrconv(..vbunioncode..)strconv(..vbformunicode..)

Answer 3

c = Mid(a1, 1, b - 1)不加-1的话带着vbCrLf，所以出错

Answer 4

按F8一步步执行，看到打开文件那步时c的值是什么？或者你给出你出错时的text1取的值，大家帮你测试下。

Answer 5

随便一个值都出错，除非里面没有vbCrLf。
不加-1的话带着vbCrLf，肯定出错的。

Answer 6

Private Sub Command1_Click()a1 = Text1
b = Split(a1, vbCrLf)
c = b(0)
Open App.Path & "\" & c & ".txt" For Output As #2 ' & "\"
Print #2, a1
Close #2End Sub

Answer 7

chr(10) == ???
chr(13) == ???
numValue...