| View previous topic :: View next topic |
| Author |
Message |
sergiokapone
Joined: 18 Nov 2009
Posts: 99
|
 (Separately) Posted: Sun Apr 19, 2015 20:25 Post subject: Создание списка имен выделенных папок |
 |
|
Нужно создать кнопку, которая список выделенных папок записывает в текстовый файл вида:
| Code: | {Имя папки, содержащей выделенные}{Имя первой выделенной папки}
{Имя папки, содержащей выделенные}{Имя второй выделенной папки}
{Имя папки, содержащей выделенные}{Имя третьей выделенной папки}
... |
Пример. Есть папки:
| Code: | C:\First\Second\
C:\First\Second\a\
C:\First\Second\b\
C:\First\Second\c\ |
Внутри Second\ выделяются папки a,b и c. По нажатию кнопки записывается текстовый файл вида:
| Code: | {Second}{a}
{Second}{b}
{Second}{c} |
|
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Mon Apr 20, 2015 03:30 Post subject: |
|
|
| Code: | '=======================================
' Создать из выбранного список элементов
' по шаблону {родитель}{элемент}
' Параметры %WL "<путь назначения>"
'=======================================
With WScript.Arguments
If .Count = 0 Then WScript.Quit
L = .Item(0) : P = .Item(1)
End With
With CreateObject("Scripting.FileSystemObject")
Path = .BuildPath(P, "\") : Set L = .OpenTextFile(L,,,-1)
Do : F = L.ReadLine
S = S & vbNewLine & "{" & .GetFileName(._
GetParentFolderName(F)) & "}{" & .GetFileName(F) & "}"
Loop Until L.AtEndOfStream
BN = "ParentNameList" : Ext = ".txt" : i = 0 : F = BN & Ext
While (.FileExists(Path & FN) OR .FolderExists(Path & F))
i = i + 1 : F = BN & " (" & i & ")" & Ext : Wend : Name = Path & F
.CreateTextFile(Path & F, 1, True).Write Mid(S, 3)
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
