求助，一段vb程序到底错在那里。

Question

这段到底错在那里？提示 “File1.Path = strline“这一段路径未找到！！！Private Sub Command1_Click()
Open "c:\1111.txt" For Input As #4
Do Until EOF(4)Line Input #4, strlineMsgBox strline
File1.Path = strlineFor i = 0 To File1.ListCount - 1
Open File1.Path & "\" & File1.List(i) For Input As #1             '打开操作文件
Open "d:\temp.mnl" For Output As #2                           ' 新建一个临时文件
Do Until EOF(1)                                                        '循环读取操作文件
Line Input #1, a                                                             '读取操作文件
b = InStr(1, a, "defun s::startup")                            '寻找刚读取的内容中是否有defun s::startup
If b = 0 Then '如果找不到
Print #2, a; '将刚读取的内容写入临时文件
Else '如果找到
Print #2, Mid(a, 1, b + 16)      '从刚读取的内容第一个字符开始，取b+16个字符，b指defun s::startup 的d所在的位置，16指defun s::startup的长度，若没加16，则defun s::startup没有写入临时文件
Do Until EOF(1)   '循环至文件完
Line Input #1, a           '读取文档
b = InStr(1, a, "jjyy")     '查询刚读取的内容是否有 jjyy
If b <> 0 Then '如果有
Print #2, Mid(a, b)         '从刚读取的内容的第b个字符开始写入临时文件，b指jjyy中第一个j所在的位置
Do Until EOF(1)   ' 循环
Line Input #1, a     '将剩余的内容无条件写入临时文件
Print #2, a
Loop
End If
Loop
End If
Loop
Close '关闭操作文件
Close '关闭临时文件
Kill File1.Path & "\" & File1.List(i)       ' 删除操作文件
Name "d:\temp.mnl" As File1.Path & "\" & File1.List(i)      '将临时文件改名操作文件的名字
Next
MsgBox "替换完毕"      ' 完毕后，弹出提示
Loop
Close #111End SubSub Form_Load()End Sub

Answer 1

直到 MsgBox strline
这一句还能正确显示，但是到了下面一句，提示”路径未找到“

Answer 2

c:\1111.txt里面的内容贴一下，否则谁知道是啥原因？

Answer 3

c:\1111.txt里面的内容
c:\acaddoc.lsp
d:\mdfd.txt
e:\222.txt

Answer 4

FileListBox 控件
            在运行时，在 Path 属性指定的目录中，FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。

Answer 5

那你看看strline这时的内容是什么咯

Answer 6

非常感谢，请问一下哪里有vb中的通配符的介绍？例如 ？*之类的 /s /S又是什么意思？

Answer 7

MSDN,下载个吧,比较大
要学会结帖,新问题新帖子,否则没人看到