UC知道VB 帮看看哪出错
来源：百度知道 编辑：UC知道 时间：2024/06/19 09:54:36
Private Sub Form_Load()
Open "c:\lsr.txt" For Append As #1
Print #1, "a";
Close #1
If Dir("c:\lsr.txt") = "aa" Then
MsgBox "错误"
End If
End Sub
当输入为aa的时候还是不能msgbox
要怎么才能判断为aa后msgbox
Open "c:\lsr.txt" For Append As #1
Print #1, "a";
Close #1
If Dir("c:\lsr.txt") = "aa" Then
MsgBox "错误"
End If
End Sub
当输入为aa的时候还是不能msgbox
要怎么才能判断为aa后msgbox
....你的那个DIR命令是判断文件是否存在
正确格式应该是 If Dir("c:\lsr.txt") = "" Then
加AA什么意识？难道你要判断 文件中是否有AA字符？
如果真是这样的话 你的命令用错了~直接读一下查找不就OK了吗？
不明白你的aa是什么意思
dir()返回一个匹配文件、目录、或文件夹的名称.
Dir("c:\lsr.txt") 返回的就是"c:\lsr.txt"怎么会和"aa"相等.
所以你是不可能运行到MsgBox "错误" 这一句的.
我不明白你究竟要干什么不过你的这个程序中的这行语句：
Dir("c:\lsr.txt") 返回的始终是 "lsr.txt" 永远不可能是"aa"的。
"c:\lsr.txt"这个东西的位置对不对?可能是路径不对哈.