Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Скрипт перемещение+переименование файла

Ответить
Настройки темы
CMD/BAT - [решено] Скрипт перемещение+переименование файла

Новый участник


Сообщения: 11
Благодарности: 1

Профиль | Отправить PM | Цитировать


Здравствуйте. Нужен скрипт, который бы перемещал файлы из одной папки в другую. При этом файл переименовывался в след вид:
Было: File.doc
Стало: (YY-MM-DD_TIME)_File.doc, где YY-MM-DD - дата, когда перемещение произошло, TIME - время, когда перемещение произошло.
В идеале - чтобы это было совершенно незаметно для пользователя (скажем, не всплывало никаких окон консоли во время работы скрипта). Скрипт будет выполняться в среде windows 2003 server посредством планировщика заданий.

Отправлено: 14:56, 29-08-2010

 

Пользователь


Сообщения: 140
Благодарности: 92

Профиль | Отправить PM | Цитировать


Pyrocar,

Cтарайтесь сначала пользоваться поиском по форуму - подобные задачи уже решались.
Дополнительных условий к выбору копируемых файлов нет?
В качестве решения предлагаю скрипт на Vbs (*.vbs):
Код: Выделить весь код
Option Explicit 
Dim objFSO, objFile
Dim strSRCFolder, strDSTFolder
Dim Name, Extn, strNewname, strTime

strSRCFolder   = "G:\" ' папка источник
strDSTFolder   = "G:\1"  ' папка приемник

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
if objFSO.FolderExists(strSRCFolder) Then
   if objFSO.FolderExists(strDSTFolder) Then

      For Each objFile In objFSO.GetFolder(strSRCFolder).Files
          Name = objFSO.GetBaseName(objFile)
          Extn = objFSO.GetExtensionName(objFile)
          strTime=Left(Replace(Time,":","-"),5)
          strNewname = "["& Date & ", "& strTime & "]_" & Name &"."& Extn
         'Wscript.Echo  strNewname ' закомментированная строка для отладки и проверки
          objFile.Move strDSTFolder & "\" & strNewname
      Next
    Else
        Wscript.Echo "strDSTFolder: " & strDSTFolder & " не существует!"
        Wscript.Quit 1
    End If
Else
    Wscript.Echo "strSRCFolder: " & strSRCFolder & " не существует!"
    Wscript.Quit 1
End If
Wscript.Quit 0

Последний раз редактировалось deepred, 29-08-2010 в 20:16.

Это сообщение посчитали полезным следующие участники:

Отправлено: 15:43, 29-08-2010 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 11
Благодарности: 1

Профиль | Отправить PM | Цитировать


Спасибо! проблема решена
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:25, 30-08-2010 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Скрипт перемещение+переименование файла

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - [решено] Переименование файла mishkinstvo Microsoft Windows 2000/XP 5 10-12-2021 22:08
CMD/BAT - Перемещение и переименовывание файла sanat Скриптовые языки администрирования Windows 7 19-06-2013 01:33
[решено] Переименование файла 11943499 AutoIt 1 24-07-2009 20:06
Ошибка - Переименование, перемещение или удаление может повлиять на работу некоторых программ Котяра Microsoft Windows 2000/XP 5 28-06-2008 20:46
Перемещение файла подкачки myan Хочу все знать 3 10-06-2005 12:02




 
Переход