Question

VB txt文件的保存和读写 小白问题

将Form1.text1保存成Txt在当前文件夹
第二次启动时 form1.text读取这个txt 导入到Form1.text1

Answer 1

Private Sub Form_Unload(Cancel As Integer)'关闭窗体事件
If Dir(App.Path & "\Backgroup", vbDirectory) = "" Then MkDir App.Path & "\Backgroup" '判断Backgroup文件夹是否存在,不存在则创建
open app.path & "Backgroup\1.txt" for output as #1 '打开文件
print #1,text1.text '保存text1的内容到当前目录中Backgroup文件夹内的1.txt文件中
close #1 '关闭文件
end sub

Private Sub Form_Load()'加载窗体事件
dim d as string '创建 d 为字符型变量
d =  app.path & "Backgroup\1.txt" 'd=文件位置
If Dir(App.Path & "\Backgroup", vbDirectory) = "" Then MkDir App.Path & "\Backgroup" '判断Backgroup文件夹是否存在,不存在则创建
if dir(d) <> "" then '判断目标文件是否存在,存在则打开文件
open d for input as #1 '打开文件
text1.text = StrConv(InputB(LOF(1), 1), vbUnicode) '读取当前目录中Backgroup文件夹内的1.txt内容到text1
close #1 '关闭文件
end if '结束判断
end sub

Answer 2

Private Sub baocun_Click()
open app.path+"\1.txt" for output as #1
print #1,text1.text
close #1
end sub
Private Sub Form_Load()
open app.path+"\1.txt" for input as #1
input #1,text1.text
close #1
end sub

追问

当前文件夹内的文件夹 如文件夹：Backgroup
拜托大神了 这是作业啊

追答

把app.path+"\1.txt" 改为 app.path+"\backgroup\1.txt" 即可
前提是 在程序所在的当前文件夹下有backgroup文件夹 否则会出错
如果你保存过该工程，则app.path指的是保存的位置
如果没有，是新建的，app.path指的是vb安装位置
希望这些能帮助你

追问

原来如此 为什么我使用的时候提示错误 如图所示

追答

我调试过没出你这样的问题
只是有个小错误
不能直接赋值给text1

可改为
Dim s As String
Private Sub baocun_Click()
Open App.Path + "\1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Form_Load()
Open App.Path + "\1.txt" For Input As #1
Input #1, s
Close #1
Text1.Text = s
End Sub
如果依然有错，就是你的vb有问题

Answer 3

Option Explicit
Dim FilePath As String    '储存文件路径

Private Sub Command1_Click()
Open FilePath For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Form_Load()
FilePath = App.Path & "\Backgroup\1.txt"
If Dir(FilePath) = "" Then    '判断1.txt是否存在
Else
Open FilePath For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
End If
End Sub