訪客只能看到部份內容,免費 加入會員
If Dir(Text1.Text, vbDirectory) <> "" Then i = FreeFile Open Text1.Text For Input As #i Do While Not EOF(i) Line Input #i, a DoEvents Loop Close #i End If If a = Text2.Text Then Form3.Show Else MsgBox ("不存在!") End If