Как переместить файлы автоматом, каждый в свой каталог?

[Flasher]

alex-navigator
Так это почти то, что я привёл выше, только второй разделитель точка.
Теперь надо указать список вероятных разделителей - первых и вторых, соответственно.

[alex-navigator]

Flasher
Да, Вы правы. Сперва я Вас просто не понял.

[Flasher]

alex-navigator
Так а разделители будут?

[alex-navigator]

Flasher
Разделители будут такие: "_число_" и " _число."

[Flasher]

Освободился..

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

  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 

[alex-navigator]

Flasher
Спасибо за труды! Вылезла ошибочка, что Переменная не определена: Filt1
Код 800A01F4. Если исправления займут много времени, то оно этого не стоит, Вы мне и так много уже помогли.
Flasher, можно ли сделать, чтобы файл не копировался, затем удалялся, а просто перемещался???

[Flasher]

Вылезла ошибочка

10 и 11 строки закомментировать. Они только для отладки.

Flasher, можно ли сделать, чтобы файл не копировался, затем удалялся, а просто перемещался?

Это сделано для того, чтобы не было проблем с перемещением с других томов. Сделал два варианта.

[alex-navigator]

Flasher
Спасибо Вам большое!