VB错误的文件名或号码

关键字：号码 更新时间：2018-07-04 12:51:06 224次访问

做了一个保存文件的程序模块，运行时出现：错误的文件名或号码

代码如下：

Private Sub Save_Click()

CommonDialog1.DialogTitle = "保存"

CommonDialog1.ShowSave

SavePath = CommonDialog1.FileName

If SavePath = "" Then

MsgBox "您已退出"

Exit Sub

Else

Call getsaveword(SavePath)

End If

End Sub

Sub getsaveword(SavePath)

SaveWord = "4545345"  '获取游戏信息;暂用随机数

Call savetofile(SavePath, SaveWord)

End Sub

Sub savetofile(SavePath, SaveWord)

Open SavePath For Output As file1

Print file1, SaveWord

Close file1

End Sub

应该是没有获取正确的文件名称吧

相关标签：号码