Batya
|
 Posted: Sun Feb 03, 2013 22:32 Post subject: |
 |
|
| Petr_Ch wrote: | | Код подправил, но выдает ошибку. Что-то в предпоследней строчке ему не нравится. |
Прошу прощения - писал без проверки и ошибся немного. Попустил "Then". Эта строка должна быть:
| Code: | If (lE = "jpg") Or (lE = "tif") Then FSO.MoveFile pFile.Path, lF |
Исправил и соответствующий пост.
| Petr_Ch wrote: | | Хотя, судя по всему, он и начальные команды не выполняет((( |
Ну, это будет видно, когда скрипт отработает без ошибок.
Также не следует забывать, что исходный (и нынешний модифицированный) скрипт работает с выделенными папками.
И ещё - исходный скрипт после переноса удаляет папки. Если этого не требуется, нужно удалить или закомментировать сроку:
| Code: | FSO.DeleteFolder lF.Path |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
