| View previous topic :: View next topic |
| Author |
Message |
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
 (Separately) Posted: Thu Jan 08, 2009 00:50 Post subject: |
 |
|
hawk777
Перед 40-ой строкой | Code: | FSO.CopyFile File, Fold & "\", True |
добавь | Code: | MsgBox "Папка:" & vbNewLine & Fold & vbNewLine & "Файл:" & vbNewLine & File |
Запусти скрипт для одного файла, на котором он спотыкается. Мне нужно, чтобы ты прислал полностью текст отладочного сообщения и сообщения с ошибкой. Для копирования текста сообщения когда оно возникнет, нажми Ctrl+C, а потом вставь сюда.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
 |
hawk777
Joined: 27 Dec 2008
Posts: 61
|
| (Separately) Posted: Fri Jan 16, 2009 12:32 Post subject: |
|
|
Batya
---------------------------
Сервер сценариев Windows
---------------------------
Сценарий: C:\Program Files\Total Commander\Utils\WHS\asdf.vbs
Строка: 31
Символ: 1
Ошибка: Путь не найден
Код: 800A004C
Источник: Ошибка выполнения Microsoft VBScript
---------------------------
ОК
--------------------------- |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
| (Separately) Posted: Fri Jan 16, 2009 18:42 Post subject: |
|
|
hawk777
А что у тебя в 31-й строке?
Если
FSO.CopyFile File, Fold & "\", True
то смотри пост выше.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
ALekseyka
Joined: 02 Mar 2009
Posts: 3
|
| (Separately) Posted: Mon Mar 02, 2009 20:52 Post subject: |
|
|
Тут возник другой вопрос, имеются файлы:
1205^DSC_0784.JPG
1205^DSC_0785.JPG
1205^DSC_0786.JPG
а также:
1205_1^DSC_0784.JPG
1205_1^DSC_0785.JPG
1205_1^DSC_0786.JPG
и файлы:
1205_2^DSC_0784.JPG
1205_2^DSC_0785.JPG
1205_2^DSC_0786.JPG
при применении скрипта все эти файлы складываются в папку 1205,
а не в 1205, 1205_1 и 1205_2 соответственно.
Как поправить скрипт?
Заранее благодарен. |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
| (Separately) Posted: Tue Mar 03, 2009 13:15 Post subject: |
|
|
ALekseyka
Вот переделанный вариант скрипта:
| Code: | '=====================================================================
' Перемещение выделенных файлов в соответствующие им папки на
' противоположной панели TC
' Папка соответствует файлу, если ее имя является началом имени файла
' Параметры вызова из TC:
' %L "%T"
'=====================================================================
Option Explicit
Dim Title, Mess, FSO, ListF, List, Target, Fold, File, Name, i
' Проверяем параметры
Title = "Внимание!"
If WScript.Arguments.Count < 2 Then
Mess = "Неправильно указаны параметры!"
MessQuit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
ListF = WScript.Arguments(0)
Target = WScript.Arguments(1)
If Not FSO.FileExists(ListF) Then
Mess = "Неправильно указан файл-список обрабатываемых файлов!"
MessQuit
End If
If Not FSO.FolderExists(Target) Then
Mess = "Неправильно указана целевая папка!"
MessQuit
End If
If Right(Target, 1) <> "\" Then Target = Target & "\"
List = Split(FSO.OpenTextFile(ListF).ReadAll, vbNewLine)
For Each File In List
Name = FSO.GetBaseName(File)
For i = Len(Name) To 1 Step -1
Fold = Target & Left(Name, i)
If FSO.FolderExists(Fold) Then
FSO.CopyFile File, Fold & "\", True
FSO.DeleteFile File
Exit For
End If
Next
Next
Quit
Sub MessQuit
MsgBox Mess, vbOKOnly + vbError, Title
Quit
End Sub
Sub Quit
Set FSO = Nothing
Wscript.Quit
End Sub |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Mon Jul 25, 2011 00:16 Post subject: |
|
|
Добрый вечер подскажите, можно ли подкорректировать скрипт, чтобы он перемещал файлы во вложенные папки на противоположной панели
считая знак(_) вложенной папкой, ну на пример файлы | Code: |
videos_1002_m1dkurs_1.mov
videos_1003_m1drurs_2.mov
|
перемещались в папки
| Code: |
videos/1002/m1dkurs/
videos/1003/m1drurs/
|
соответственно, а если знак(_) в имени файла отсутствует(на знак(.) и пробел пусть скрипт не реагирует), то исходной считается первая папка. Заранее благодарен. |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
|
| Back to top |
|
|
shveicar
Joined: 18 Apr 2011
Posts: 277
Location: Россия Москва
|
| (Separately) Posted: Mon Jul 25, 2011 02:46 Post subject: |
|
|
| Спасибо Tol!k Проблема решена. |
|
| Back to top |
|
|
alex-navigator
Joined: 14 Dec 2013
Posts: 8
|
| (Separately) Posted: Sat Dec 14, 2013 21:32 Post subject: |
|
|
Batya
Добрый вечер Batya! Подскажите пожалуйста, что поправить в скрипте, чтоб:
«Перемещение выделенных файлов в соответствующие им папки на противоположной панели TC
Папка соответствует файлу, если ее имя является началом имени файла»
Нужно чтоб «Папка соответствует файлу, если ее имя являлось концом имени файла»
Спасибо большое! |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Dec 15, 2013 17:10 Post subject: |
|
|
alex-navigator
Из памятки: Укажите ссылку на нужный пост, если скриптов в топике приведено более одного.
Если касается второго скрипта, то: Left заменить на Right.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
alex-navigator
Joined: 14 Dec 2013
Posts: 8
|
| (Separately) Posted: Sun Dec 15, 2013 21:17 Post subject: |
|
|
Flasher
Спасибо, очень помогли!!!
А подскажите, пожалуйста, например есть файл с названием "Пример_001_пример" и папка 001, что поправить в скрипте, чтобы файл переместился в папку? Ещё раз спасибо большое! |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Dec 15, 2013 21:34 Post subject: |
|
|
alex-navigator
А если базовое имя файла - "Пример1_001_002_пример2", в какую папку перемещать?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
alex-navigator
Joined: 14 Dec 2013
Posts: 8
|
| (Separately) Posted: Sun Dec 15, 2013 21:51 Post subject: |
|
|
| Flasher wrote: | alex-navigator
А если базовое имя файла - "Пример1_001_002_пример2", в какую папку перемещать? |
Flasher, такого варианта у меня не будет. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Dec 15, 2013 21:59 Post subject: |
|
|
alex-navigator
Т.е. правильно я понимаю, что пляшем от двух знаков подчёркивания?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
alex-navigator
Joined: 14 Dec 2013
Posts: 8
|
| (Separately) Posted: Sun Dec 15, 2013 22:08 Post subject: |
|
|
Flasher
к примеру файл:
пример_1519.avi_thumbs_[2013.12.15_18.08.08] и папка 1519. Возможно ли это, чтоб этот файл переместился в эту папку? Может я что-то не правильно объясняю. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
