VB如何比對文件名？相同的留下不同的移動到其它目錄

Dim tfn() As String, dd As String, i As Long

Open "c:\a.txt" For Binary As #1

tfn = Split(Input(LOF(1), #1), vbCrLf)

Close #1

dd = Dir("c:\temp\*.*")

Do Until dd = ""

For i = 0 To UBound(tfn)

If LCase(dd) = LCase(tfn(i)) Then Exit Sub

Next

If i > UBound(tfn) Then Name "c:\temp\" & dd As "c:\bak\" & dd

dd = Dir

Loop

MsgBox "比對完畢！"

End Sub