请教大神，以下这个代码可以读到文本第二行的信息，我想做一个读取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.Caption = s2
Close #1
End Sub