Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Прошу помощи разобраться со скриптом...

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
scuadro



Joined: 02 Jul 2011
Posts: 4

Post (Separately) Posted: Sat Jul 02, 2011 02:21    Post subject: Прошу помощи разобраться со скриптом... Reply with quote

Есть скрипт. Но он почему-то меняет регистры букв в произвольном порядке. Как от этого избавится? Надо сделать так, чтобы скрипт брал название файла, создавал одноименную папку и соответственно перемещал туда этот файл. Что нужно поправить в скрипте? Я совершенно не понимаю в этом. Пытался запустить вот этот скрипт ... ни получается. Пишет какие-то ошибки.
Мой позаимствованный скрипт...

Code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Drive = 'D:' and Path = '\\HDTVRip Video\\Смотрел\\'")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

For Each objFile in colFiles
        If Not fso.FolderExists(objFile.Path & objFile.FileName) Then
           fso.CreateFolder objFile.Path & objFile.FileName
           fso.MoveFile objFile.Name, objFile.Path & objFile.FileName & "\" & objFile.FileName & "." & objFile.Extension
        End If
Next

Пожалуйста помогите разобраться.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Jul 02, 2011 03:29    Post subject: Reply with quote

scuadro wrote:
Пытался запустить вот этот скрипт
Нужен вот этот.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10266
Location: Россия, Саратов

Post (Separately) Posted: Sat Jul 02, 2011 09:01    Post subject: Reply with quote

scuadro
Для сведения: на форуме принято при выкладывании скриптов или их фрагментов обрамлять текст тегами code и /code в квадратных скобках. При подготовке сообщения удобно использовать для выделенного текста кнопку Code.

Пост исправлен. Ссылка сделана рабочей. Скрипт взят в теги в демонстрационных целях.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
scuadro



Joined: 02 Jul 2011
Posts: 4

Post (Separately) Posted: Sat Jul 02, 2011 09:57    Post subject: Reply with quote

Avada wrote:
scuadro
Для сведения: на форуме принято при выкладывании скриптов или их фрагментов обрамлять текст тегами code и /code в квадратных скобках. При подготовке сообщения удобно использовать для выделенного текста кнопку Code.

Пост исправлен. Ссылка сделана рабочей. Скрипт взят в теги в демонстрационных целях.


мне форум не дал возможности сделать правильную ссылку

Добавлено спустя 41 секунду:

Flasher wrote:
scuadro wrote:
Пытался запустить вот этот скрипт
Нужен вот этот.


спасибо, попробую.

Добавлено спустя 8 минут:

Flasher wrote:
scuadro wrote:
Пытался запустить вот этот скрипт
Нужен вот этот.


строка 21
символ 1
Ошибка Файл ненайден

что не так?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Jul 02, 2011 10:30    Post subject: Reply with quote

scuadro wrote:
что не так?
Параметры-то хоть указаны? Что-то сомневаюсь.
Кстати, в строке
Quote:
Dim FileName, FilePath, DashInName, NewFilePath
выделенное можно удалить. Batya при правке первого скрипта не обратил внимание на лишнюю переменную. Хотя можно вообще всю строку удалить, хуже не станет. Smile
Back to top
View user's profile Send private message
scuadro



Joined: 02 Jul 2011
Posts: 4

Post (Separately) Posted: Sat Jul 02, 2011 11:46    Post subject: Reply with quote

Flasher"
В нижней строке TC я пишу имя скрипта плюс параметры... 2.vbs %L %T ... для другой панели. Правильно?
Удалил DashInName. пишет что не указаны параметры.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Jul 02, 2011 12:27    Post subject: Reply with quote

scuadro
Сперва стоит прочесть.
scuadro wrote:
В нижней строке TC я пишу имя скрипта плюс параметры...
В какой нижней строке? Shocked В командной что-ли?
Вечный ликбез.
scuadro wrote:
Удалил DashInName. пишет что не указаны параметры.
Это не влияет вообще на параметры.
Back to top
View user's profile Send private message
scuadro



Joined: 02 Jul 2011
Posts: 4

Post (Separately) Posted: Sat Jul 02, 2011 13:18    Post subject: Reply with quote

Flasher
Прочел про ликбез. Все так и сделал. При нажатии на кнопку пишет "Не указаны параметры"

Блин...вот чайник))) Разобрался. Огромное спасибо всем за подсказки! Дело в том....что нужно было в TC выделить те файлы которые нужно в папки упаковать))) А я с чего-то решил что он автоматом текущую директорию обработает.

Тему нужно как-то закрывать? вопрос к модераторам?
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10266
Location: Россия, Саратов

Post (Separately) Posted: Sat Jul 02, 2011 13:55    Post subject: Reply with quote

scuadro
Никак не нужно. А вот п.16 правил форума читать нужно обязательно. А прочитав, соблюдать.
Никому не нужное полное цитирование предыдущих постов убрано выше в двух местах.

(И, кстати, по поводу ссылки в первом посте можно было не объяснять: ситуация известна, и претензий по этой части не высказывалось. Просто заодно уж я подправил и ссылку, поскольку мог это сделать.)
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
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