Total Commander

Код: Выделить всё

  Filt1 = InStr(Name, "_")
  If Filt1 Then
    RName = Mid(Name, Filt1 + 1)
    Filt2 = InStr(RName, "_") : Filt3 = InStr(RName, ".")
    If Filt1 Or Filt2 And Abs(Filt2-Filt1) > 1 Then
      If Filt2 And Filt3 And Filt2 < Filt3 Then Fold = Target & Left(RName, Filt2-1)
      If Filt2 And Filt3 And Filt3 < Filt2 Then Fold = Target & Left(RName, Filt3-1)
      If Filt2 And Not Filt3 Then Fold = Target & Left(RName, Filt2-1)
      If Filt3 And Not Filt2 Then Fold = Target & Left(RName, Filt3-1)
      If FSO.FolderExists(Fold) Then
        If Left(File, 1) = Left(Target, 1) Then
          FSO.MoveFile   File, Fold & "\"
        Else
          FSO.CopyFile   File, Fold & "\", True
          FSO.DeleteFile File
        End If
      End If
    End If
  End If

Код: Выделить всё

  For i = Len(Name) To 1 Step -1
    Fold = Target & Left(Name, i)
    If FSO.FolderExists(Fold) Then
      FSO.CopyFile   File, Fold & "\", True
      FSO.DeleteFile File
      Exit For
    End If
  Next