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

scuadro

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

Код: Выделить всё

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

Пожалуйста помогите разобраться.

Flasher

scuadro писал(а):Пытался запустить вот этот скрипт

Нужен вот этот.

Avada · Сообщение **Avada** » Сб июл 02, 2011 09:01

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

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

scuadro

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

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

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

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

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

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

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

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

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

что не так?

Flasher

scuadro писал(а):что не так?

Параметры-то хоть указаны? Что-то сомневаюсь.
Кстати, в строке

Dim FileName, FilePath, DashInName, NewFilePath

выделенное можно удалить. Batya при правке первого скрипта не обратил внимание на лишнюю переменную. Хотя можно вообще всю строку удалить, хуже не станет.

scuadro

Flasher"
В нижней строке TC я пишу имя скрипта плюс параметры... 2.vbs %L %T ... для другой панели. Правильно?
Удалил DashInName. пишет что не указаны параметры.

Flasher

scuadro
Сперва стоит прочесть.

scuadro писал(а):В нижней строке TC я пишу имя скрипта плюс параметры...

В какой нижней строке?

В командной что-ли?
Вечный ликбез.

scuadro писал(а):Удалил DashInName. пишет что не указаны параметры.

Это не влияет вообще на параметры.

scuadro

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

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

Тему нужно как-то закрывать? вопрос к модераторам?

Avada · Сообщение **Avada** » Сб июл 02, 2011 13:55

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

(И, кстати, по поводу ссылки в первом посте можно было не объяснять: ситуация известна, и претензий по этой части не высказывалось. Просто заодно уж я подправил и ссылку, поскольку мог это сделать.)