我做了个软件，最近在上面准备加个记住密码的功能，我先把密码写出到文本，然后在软件启动是把文本内容读到了text控件里，但是点确定说密码错误，如果用手打上去，就对了，就算复制过去都不行，这是怎么回事啊，在线等~~~急~~~~

作一个文件放在该软件的app.path目录中。然后读取。

是必须放在这个目录里吗，我是把文件放在c盘里，然后在到c盘读取的，有什么分别吗

我的代码是这样的，看看为什么不对啊
Private Sub Command1_Click()
If Text1.Text = "123" Then
MsgBox "y", 0
Else
MsgBox "n", 0
End If
If Check1.Value = 1 Then
Open "c:\abc.txt" For Output As #1
Print #1, Text1.Text
Close #1
Else
If Dir("c:\abc.txt", vbDirectory) <> "" Then
Kill "c:\abc.txt"
End If
End If
End Sub

Private Sub Form_Load()
If Dir("c:\abc.txt", vbDirectory) <> "" Then
Check1.Value = 1
Dim sA As String * 65400 '声明定长String变量
Open "c:\abc.txt" For Binary As #1 '用二进制打开文件
Get #1, , sA '用Get语句从文件中获取字节
Text1 = sA '显示打开的文件
Close #1 '关闭文件
Else
Check1.Value = 0
End If
End Sub

Private Sub Form_Load()
If Dir("c:\abc.txt", vbDirectory) <> "" Then
Check1.Value = 1
Dim sA As String * 65400 '声明定长String变量
Open "c:\abc.txt" For Binary As #1 '用二进制打开文件
Get #1, , sA '用Get语句从文件中获取字节
Text1 = sA '显示打开的文件
Close #1 '关闭文件
Else
Check1.Value = 0
End If
End Sub

问题出在sA上，代码修改如下

Private Sub Form_Load()
If Dir("c:\abc.txt", vbDirectory) <> "" Then
Check1.Value = 1
Dim sA As String * 65400 '声明定长String变量
sA = String(LOF(1), Chr(0))
Open "c:\abc.txt" For Binary As #1 '用二进制打开文件
Get #1, , sA '用Get语句从文件中获取字节
sA = Left(sA, InStr(sA, Chr(0)) - 1) '该sA才是真正的内容
Text1 = sA '显示打开的文件
Close #1 '关闭文件
Else
Check1.Value = 0
End If
End Sub

没有分别!!!只是摆放文件的位置不同而已。

建个access 数据表，把密码放到里面，然后输入的密码和我所建得access的中密码字段的值判断