Flasher
|
 Posted: Mon Dec 16, 2013 00:02 Post subject: |
 |
|
Освободился..
| Code: | 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 |
вместо | Code: | 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 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Mon Dec 16, 2013 00:38; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
