Flasher
|
 Posted: Sat Dec 02, 2017 01:08 Post subject: |
 |
|
| ingerard wrote: | | Если среди файлов будут одинаковые имена и они будут в разных папках, то выделит все, что не допустимо |
Да, не всегда требуется, согласен. Это, в принципе, легко поправимо, но...
| ingerard wrote: | | и через скрипт очень долго тупит если элементов много. |
Не думаю, что отправка в буфер по совокупности с последующим восстановлением окажется быстрее:
| Code: | '======================= VBS ======================
' Скопировать относительные пути выбранных объектов
' Условие: требуется компонент TCScript.dll
'==================================================
With CreateObject("TCScript.Helper")
.Pause = 0 : .Wait = True : .NoArrayReturn = True
Sel = .GetSrcSelectedFiles(1) : P = .GetInfo("SP")
If P <> "" Then
If Right(P, 1) <> "\" Then P = P & "\"
If .INIRead(.MainINI, "Configuration", "DrivesExportUpcase", -1) _
< 1 Then P = LCase(Left(P, 1)) & Mid(P, 2)
Sel = Replace(Sel, P, "")
End If : .SetTextToClip Sel
End With |
Либо: | Code: | '======================= VBS ======================
' Скопировать относительные пути выбранных объектов
' Параметры: %WL "%P"%Z
'==================================================
Set A = WSH.Arguments : If A.Count = 0 Then WSH.Quit
With CreateObject("Scripting.FileSystemObject")
All = .OpenTextFile(A(0),,,-1).ReadAll
.OpenTextFile(A(0),2,,-1).Write vbCr & Replace(All, .BuildPath(A(1), "\"), "")
End With
CreateObject("WScript.Shell").Run "%ComSpec% /c clip<" & A(0), 0 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Mon Dec 04, 2017 02:14; edited 9 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
