­ã´£³¡ªL

Sub TEST()
Dim P$, F$, Nm$
P = "C:\AAA\"
Do
  If F = "" Then F = Dir(P & "test1-*.txt") Else F = Dir()
  If F = "" Then Exit Sub
  Nm = ""
  If Mid(F, 6, 3) = "-1-" Then Nm = Left(F, 6) & 2 & Mid(F, 8)
  If Mid(F, 8, 1) = "»s" Then Nm = Left(F, 7) & Mid(F, 9)
  If Nm <> "" Then Name P & F As P & Nm
Loop
End Sub