Flasher
|
 Posted: Fri May 20, 2011 03:18 Post subject: |
 |
|
| shveicar wrote: | | с кнопкой все в порядке путь указан до скрипта. |
Я пишу про Путь запуска, третье поле сверху. Оно должно быть пустым.
| shveicar wrote: | | И если вам не трудно подскажите источник информации об основных командах скриптов vbs |
Тут приводил.
| shveicar wrote: | | В данном случае я имел ввиду скрипт позволяющий создать с помощью кнопки сразу 100 папок |
А зачем? Разве задача не стоит папку с одним названием раскидать по куче других папок? Если да, то тут скрипт особо и не нужен. Достаточно создать одну папку (курсор на ней), в другой панели выделить папки, куда копируем, перейти обратно (Tab), нажать F5, в диалоге копирования нажать "Опции", отметить галкой нижнюю опцию и нажать Enter.
А если надо именно создать папки с именами выделенных папок/файлов, то здесь смотрим.
| shveicar wrote: | | Да и еще, Script Helper себе поставил - (полезная штука) так что если Вам удобнее работать с его скриптами - для меня это не проблема. |
Нет. Он тут совершенно некстати.
Вообще, если я ничего не напутал, должно быть что-то наподобие этого:
| Code: | i=i+1
If Not FSO.FileExists(TargetPath & "\" & File.Name) Then
FSO.MoveFile File, TargetPath & "\"
MoveFiles = MoveFiles + File.Name & chr(13)
ElseIf FSO.FileExists(TargetPath&"\"&.GetBaseName(File)&" ("&Abs(i)&")."&.GetExtensionName(File)) Then
File.Copy TargetPath&"\"&.GetBaseName(File)&" ("&Eval(i+1)&")."&.GetExtensionName(File)
Else
File.Copy TargetPath&"\"&.GetBaseName(File)&" (1)."&.GetExtensionName(File)
End If |
между | Code: | TargetPath = File.ParentFolder.ParentFolder |
и | Code: | Set Folder = FSO.GetFolder(TargetPath&"\"&WScript.Arguments(1)) |
Пусть другие поправят, если что не так. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
