在线等，急

Question

打开一个文件，然后在文本框中显示这个文件的路径，当重新启动软件的时候不让文本框清空，还让其显示上次打开文件的路径，应该怎么写代码？

Answer 1

啟動時
Private Sub Form_Load()
   If Dir("C:\WINNT\system32\ICtxtPathSet.set") <> "" Then
      Close #1
      Open "C:\WINNT\system32\ICtxtPathSet.set" For Input As #1
      Input #1, SetPath
      Close #1
      txtPath.Text = SetPath
   End If
End Sub退出時:
Private Sub butExport_Click()
        Open "C:\WINNT\system32\ICtxtPathSet.set" For Output As #1
        Print #1, sFileName
        Close #1
End Sub

Answer 2

Input #1, SetPath　编译这一句出错，提示：输入超出文件尾
怎么可我的文件是空白的，里面什么都没写啊

Answer 3

借助txt文件或ini文件即可
   lngre = WritePrivateProfileString("SetPath" + Str(num), " ", tempstr, App.Path & "\SetPath.ini")

Answer 4

(form_load中写的代码)
dim setpath as string 
If Dir(App.Path & "\PathSet.txt") <> "" Then
      Close #1
      Open App.Path & "\PathSet.txt" For Input As #1
      Input #1, setpath
      Close #1
      Text1.Text = setpath    
（确定按钮里写的代码）
Open App.Path & "\PathSet.txt" For Output As #1
        Print #1, strResFolder
        Close #1
这是我的代码
能不能帮我找出原因

Answer 5

代码修改如下
form_load中写的代码)
dim setpath as string 
If Dir(App.Path & "\PathSet.txt") <> "" Then
      Close #1
else
      Open App.Path & "\PathSet.txt" For Input As #1
      Input #1, setpath
      Close #1
      Text1.Text = setpath  
但是根本读不了
text1.text仍为空

Answer 6

我觉得楼主你这样做是不行的,你想重新打开软件获得文件路径,你的代码估计实现不了,因为你关闭软件时所有数据已经被清空了,根本不可能记录下来,至于怎么实现,我想Dengjiexi的方法值得一试,以上仅是个人观点,说的不对,请指教~

Answer 7

我的那个上面没有退出按钮，所以我用了一个确定按钮代替，当输入文件名后再点击一下确定按钮
代码如下
Open App.Path & "\PathSet.txt" For Output As #1
        Print #1, strResFolder
        Close #1
但就是读不了

Answer 8

代码再改改
Private Sub Form_Load()中的不变Private Sub butExport_Click()的改为如下：Private Sub butExport_Click()
   CommonDialog1.FileName = ""
   CommonDialog1.Filter = "XLS文件(*.txt)|*.txt"
   CommonDialog1.ShowOpen
   txtPath.Text = CommonDialog1.FileName
   sfilename = Dlog.FileName
   If sfilename <> "" Then
      Open "C:\WINNT\system32\ICtxtPathSet.set" For Output As #1
      Print #1, sFileName
      Close #1
   End If
End Sub

Answer 9

第一次测试前先把C:\WINNT\system32\ICtxtPathSet.set文件删除

Answer 10

谢谢DengXingJie(杰西) 和fxy_2002(阿勇)，问题解决了，非常感谢