Flasher
|
 Posted: Sat Oct 01, 2011 17:57 Post subject: |
 |
|
| zlodei1988 wrote: | | В том то и дело, что я буду смотреть эскизы файлов, выделять, нажимать кнопку, и они начинают перемещаться в создаваемые папки, вот что надо сделать то( |
И в чём проблема?
В этом скрипте поставить
Поставить Const Rank = 1 и заменить строку n = 1 на | Code: | n = InputBox("Введите имя-число первой папки :", "Создание каталогов и перемещение в них выделенного") |
Ну, можно ещё число на разбиение задавать. Вместо
| Code: | Count = CInt(WScript.Arguments(2)) |
вставить | Code: | Count = CInt(InputBox("Введите число, на которое следует разбивать :", "Создание каталогов и перемещение в них выделенного")) |
А, ну и поменять копирование на перемещение, само собой:
| Code: | If FSO.FileExists(F) Then FSO.CopyFile F, Path |
на
| Code: | If FSO.FileExists(F) Then FSO.MoveFile F, Path |
и
| Code: | FSO.CopyFolder F, Path |
на | Code: | FSO.MoveFolder F, Path |
Last edited by Flasher on Sat Oct 01, 2011 18:17; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
