这段代码有问题吗？

[tianxiadys]

Public Sub FileSave()
Dim i As Integer
Dim a As Integer
On Error Resume Next
Kill "ToolsSet.ini"
On Error Resume 0
Open "ToolsSet.ini" For Output As #3
'MsgBox "1"
    Print #3, CabNumber
    For i = 1 To CabNumber
        Print #3, CabName(i)
        For a = 1 To 12
            Write #3, ButtenName(i * 12 + a - 12)
            'MsgBox "2"
        Next
        For a = 1 To 12
            Write #3, ButtenPath(i * 12 + a - 12)
            'MsgBox "3"
        Next
        For a = 1 To 12
            Write #3, ButtenDiscribe(i * 12 + a - 12)
            'MsgBox "4"
        Next
        For a = 1 To 12
            Write #3, ButtenPicture(i * 12 + a - 12)
            'MsgBox "5"
        Next
        For a = 1 To 12
            Write #3, ButtenHot1(i * 12 + a - 12); ButtenHot2(i * 12 + a - 12)
            'MsgBox "6"
        Next

    Next

Close #3

End Sub

文件总是写不出来，加上msgbox发现每个地方都运行了
求解

[123BMW666]

[Quote=引用 5 楼 gam2046 的回复:]
Open "ToolsSet.ini" For Output As #3

同学、鬼知道你这个文件在哪里、至少要指明路径吧？
Open app.path & "\ToolsSet.ini" For Output As #3
[/Quote]

Open "ToolsSet.ini" For Output As #3

这句好像没问题，打开当前目录下的那个文件嘛

[forDream_]

这是你这么以为、VB可不认为是从当前目录

[chinaboyzyq]

ButtenName
ButtenPath
ButtenDiscribe
ButtenPicture
ButtenHot1
需要延时等待数据。

[hjker007]

[Quote=引用 8 楼 yinmingxing 的回复:]
引用 5 楼 gam2046 的回复:
Open "ToolsSet.ini" For Output As #3

同学、鬼知道你这个文件在哪里、至少要指明路径吧？
Open app.path & "\ToolsSet.ini" For Output As #3


Open "ToolsSet.ini" For Output As #3

这句好像没问题，打开当……
[/Quote]


加上路径吧，谁知道现在VB认为哪里是当前路径

[tianxiadys]

print 和 write 来回换，都没有效果

[打死不掉牙]

ButtenName...ButtenHot1这些函数都返回什么啊？

[bcrun]

On Error Resume 0
这一句有问题不能执行,你会不会是检查的不是文件保存的当前目录,所以没看到呢

[fzx4936]

楼主 首先要确认你这个工程保存没有？
如果没有保存 那么这么文件应该在vb默认的工作目录
如果保存了 那么请注释掉所有的On Error再试。

[123BMW666]

On Error Resume 0

好像不行吧，
要么
on error resume next
要么
on error goto 0

程序其它地方，应该没什么问题。主要检查CabNumber的值，看程序是否进入循环了

[proer9988]

最烦贴些不完整的代码。

[forDream_]

Open "ToolsSet.ini" For Output As #3

同学、鬼知道你这个文件在哪里、至少要指明路径吧？
Open app.path & "\ToolsSet.ini" For Output As #3

[forDream_]

还有在调试的时候、最好不要用on error resume next、这样会让原本很容易找到的错误、难以发现、
当你一切调试完毕的时候再加上on error resume next、以防止一些你没有预料的错误、、

[赵4老师]

[Quote=引用 6 楼 gam2046 的回复:]
还有在调试的时候、最好不要用on error resume next、这样会让原本很容易找到的错误、难以发现、
当你一切调试完毕的时候再加上on error resume next、以防止一些你没有预料的错误、、
[/Quote]
顶这个！

[tianxiadys]

[Quote=引用 5 楼 gam2046 的回复:]

Open "ToolsSet.ini" For Output As #3

同学、鬼知道你这个文件在哪里、至少要指明路径吧？
Open app.path & "\ToolsSet.ini" For Output As #3
[/Quote]

被你误打误撞猜中了，问题解决~~~
以Butten开头的全是变量
on error goto 0打错了



PS：butten是什么？？全被我耍了吧！！哈哈
应该是Button吧