请教大神，以下这个代码可以读到文本第二行的信息，我想做一个读取d：\123\*.*所有txt的内容的第10行信息，如果该行的信息是AA，那么移动d：\123\*.*到E:\, 如果该行的信息是BB，那么移动d：\123\*.*到F盘。谢谢指教。 Private Sub Form_Load() Dim s1 As String Dim s2 As String Open "d：\123\data.txt" For Input As #1 Line Input #1, s1 Line Input #1, s2 Label1.Cap...