[решено] Скрипт перемещение+переименование файла

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Скрипт перемещение+переименование файла

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

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

Спасибо! проблема решена