Lnk
|
Posted: Sat May 13, 2023 13:03 Post subject: |
|
|
imig73 wrote: | Lnk
В принципе и так понятно. Нужен скрипт, создающий папки по именам файлов и помещающий эти файлы в созданные папки. Есть тут тема Создание папок с именем файлов в разделе Автоматизация Total Commander. Там на странице 2 найдёте готовый скрипт от Flasher, который у меня давно и исправно работает. |
спасибо, попробую понять чего там как.
к сожалению со скриптами дел не имел. думал мож через кнопку как то можно решить вопрос.
Добавлено спустя 9 минут:
imig73
все получилось спасибо огромное!)
взял такое, скопировал
Set A = WSH.Arguments : C = A.Count : If C = 0 Then WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ShAp = CreateObject("Shell.Application")
Set List = FSO.OpenTextFile(A(0),,,-1)
If C = 3 Then _
Set Reg = New RegExp : Reg.Global = True:_
Reg.IgnoreCase = True : Reg.Pattern = A(2)
Do : F = Trim(List.ReadLine)
If FSO.FileExists(F) Then
BN = FSO.GetBaseName(F)
If IsObject(Reg) Then If Reg.Test(BN) Then _
BN = Reg.Execute(BN)(0).Submatches(0) Else BN = ""
If Len(BN) Then
NF = "" : If C > 1 Then If A(1) <> "" Then NF = FSO.BuildPath(A(1),BN)
If NF = "" Then NF = FSO.BuildPath(FSO.GetParentFolderName(F), BN)
If Not FSO.FolderExists(NF) Then FSO.CreateFolder(NF)
ShAp.NameSpace(NF).MoveHere F
End If
End If
Loop Until List.AtEndOfStream : List.Close
обозвал cat.vbs, сунул этот файл в панель инструментов
с параметром %WL "" ^([^.]+)\.(.+) "$1 [$2]"
и полученная кнопка успешно работает)) красота))) |
|