Модераторы: bartram, Akella
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Нужна помощь по написанию командного файла .bat 
V
    Опции темы
Robix
Дата 4.10.2009, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 62
Регистрация: 1.6.2009

Репутация: нет
Всего: нет
Подскажите пожалуйста как написать файл .bat что он переименовывал файл в определенной папке, находя его по имени. Мне иногда нужно запускать программу без некоторых dll. Чтобы вручную это не делать нужен такой файлик командный.
PM MAIL   Вверх
Данкинг
Дата 4.10.2009, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
ren aaa.txt bbb.txt

А почему тема в "другие языки"? Тут раздел по винде скорее подходит.

Это сообщение отредактировал(а) Данкинг - 4.10.2009, 14:26


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
mihanik
Дата 4.10.2009, 17:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109
На VBS всё делается очень просто...

Сначала начинаем просматривать все папку внутри нужной нам папки

Код

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FSO")
Set colSubfolders = objFolder.Subfolders

For Each objSubfolder in colSubfolders
    Wscript.Echo objSubfolder.Name, objSubfolder.Size
Next



а внутри этого цикла вставляем другой, который просматривает каждый файл внутри этой папки

Код

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where Path = '\\Scripts\\'")

For Each objFile in colFiles
    Wscript.Echo objFile.Name 
Next


Или просто проверяем наличие файла в каждой папке


Код

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("C:\FSO\ScriptLog.txt") Then
    Set objFolder = objFSO.GetFile("C:\FSO\ScriptLog.txt")
Else
    Wscript.Echo "File does not exist."
End If



А потом нужный файл переименовываем

Код

objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt"



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Thinker
Дата 4.10.2009, 20:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


иногда всех достаю
**


Профиль
Группа: Участник
Сообщений: 525
Регистрация: 17.8.2007
Где: г.Москва

Репутация: 6
Всего: 29
Код

:: путь к библиотеке
cd C:\Program Files\test\lib 
:: переименовываем ненужную библиотеку
rename test.dll test.dl_    
:: путь к программе
cd C:\Program Files\test\      
:: запускаем программу
start test.exe                         



--------------------
Помню! Скорблю!
Ольчик, я все равно тебя заберу обратно.  smile 
PM MAIL ICQ Skype GTalk   Вверх
mihanik
Дата 4.10.2009, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109
Thinker, думаю, что твой способ не применим.

Цитата(Robix @  4.10.2009,  13:56 Найти цитируемый пост)
он переименовывал файл в определенной папке, находя его по имени


Я так понял, что не известно заранее, где находиться афйл...

Найти полное имя файла (т.е имя файла с полным путём к нему) можно так
Код

dir /b /S c:\ | find "\22222.txt" > C:\FIND.TXT


Ищем файл с именем 22222.txt на диске с:\, а затем результаты поиска пишем в файл C:\FIND.TXT

Потом можно, наверное, данные из файла как-то использовать...
Пока не придумал, как это сделать средствами командной строки.


Это сообщение отредактировал(а) mihanik - 4.10.2009, 21:46


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Данкинг
Дата 4.10.2009, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
Thinker, только, насколько я понимаю, если путь содержит в себе пробелы, то его в кавычки надо заключать.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Thinker
Дата 4.10.2009, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


иногда всех достаю
**


Профиль
Группа: Участник
Сообщений: 525
Регистрация: 17.8.2007
Где: г.Москва

Репутация: 6
Всего: 29
Цитата(mihanik @  4.10.2009,  22:45 Найти цитируемый пост)
в определенной папке

mihanik, в определенной папке. Если известна папка и имя файла библиотеки, а они по условию известны, то не понимаю необходимости поиска.  smile  Да и если он запускает программу и знает имя библиотеки, то вполне может вписать путь до нее. Сомневаюсь, что путь меняется.  smile 

Это сообщение отредактировал(а) Thinker - 4.10.2009, 22:40


--------------------
Помню! Скорблю!
Ольчик, я все равно тебя заберу обратно.  smile 
PM MAIL ICQ Skype GTalk   Вверх
Robix
Дата 8.10.2009, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 62
Регистрация: 1.6.2009

Репутация: нет
Всего: нет
Цитата(Данкинг @ 4.10.2009,  14:25)
ren aaa.txt bbb.txt

А почему тема в "другие языки"? Тут раздел по винде скорее подходит.



Спасибо , переименовалось. Не, ну это же язык, только другой, поэтому и тема тут. Или хотите сказать это не язык ? А можно такой bat файл написать и подкинуть кому-нибудь, чтоб навредить ему. Поудалять там все smile 




Это сообщение отредактировал(а) Robix - 8.10.2009, 12:14
PM MAIL   Вверх
Thinker
  Дата 8.10.2009, 15:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


иногда всех достаю
**


Профиль
Группа: Участник
Сообщений: 525
Регистрация: 17.8.2007
Где: г.Москва

Репутация: 6
Всего: 29
Цитата(Robix @  8.10.2009,  13:06 Найти цитируемый пост)
А можно такой bat файл написать и подкинуть кому-нибудь, чтоб навредить ему.

Читай правила. Отметь тему решенной.


--------------------
Помню! Скорблю!
Ольчик, я все равно тебя заберу обратно.  smile 
PM MAIL ICQ Skype GTalk   Вверх
Данкинг
Дата 8.10.2009, 15:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
Цитата(Robix @  8.10.2009,  13:06 Найти цитируемый пост)
А можно такой bat файл написать и подкинуть кому-нибудь, чтоб навредить ему. 

Разрешаю, можно.  smile Только на форуме обсуждение подобного запрещено. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Windows"
December
bartram
Akella

Запрещается!

1. Обсуждать взлом и делиться кряками

2. Способствовать созданию и распространению вирусов

  • Для бессмертных бородатых вопросов типа Win vs Nix есть специальный форум Религиозные Войны
  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • ВСЕГДА УКАЗЫВАЙТЕ ВЕРСИЮ ОС

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, December, bartram, Akella.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Windows | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.3002 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.