VB 浏览路径退出时保存失败

来源：百度知道 编辑：UC知道 时间：2024/06/14 14:31:39
Private Sub Command2_Click()
CommonDialog1.DialogTitle = "游戏路径" '选择路径
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName ‘文件路径显示在text1.text中
End Sub

Sub Form_Load()
Dim TextLine
Open "text.ini" For Input As #1 ' 打开文件。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Close #1 ' 关闭文件。
Text1.Text = TextLine '显示到text1.text,
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open "text.ini" For Output As #1
Print #1, Text1.text '退出时将text1.text上面浏览到的文件路径保存到同一目录下的text.ini文件中
Close #1
End Sub

请高手看下,我生成程序后,如果是手动修改text1.text中的内容,退出时就能自动保存到ini文件中,但如果是点浏览按钮,浏览出来的文件路径显示在text1.text中时，退出后就不能自动保存到ini文件中.我都大了，是怎么回事啊？？请高手解读下。。。。谢谢

Private Sub Command2_Click()
CommonDialog1.DialogTitle = "游戏路径" '选择路径
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName '文件路径显示在text1.text中
End Sub

Sub Form_Load()
Dim TextLine
Open App.Path & "/text.ini" For Input As #1 ' 打开文件。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Close #1 ' 关闭文件。
Text1.Text = TextLine '显示到text1.text,
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "/text.ini" For Output As #1
Print #1, Text1.Text '退出时将text1.text上面浏览到的文件路径保存到同一目录下的text.ini文件中
Close #1
End Sub

试试下面的
Private Sub Form_Unload(Cancel As Integer)
Open App.path & "text.ini" For Output As #1
Print #1, Text1.text
Close #1
End Sub
因为你改变了默认的路径了,所以前面最好加上 App.path

保存 直接文件名是自己的路径 + 文件名
读取 直接文件名就是一个严重的错误

Open IIf(Len(App.Path) > 3, App.Path & "\"