Господа, доброе утро. Прошу помочь разобраться с задачей. Нужно чтобы в имя файла добавлялась текущая дата при включении компьютера. Пример: c:\имя_файла.xls это исходник, а вот так хотелось бы чтобы выглядело
c:\имя_файла 07.12.24.xls
grizzlynet
15.03.2015, 19:51
Привет! Вот,пожалуйста, когда-то давно наваял скрипт до сих пор пользуюсь.
dim fso, src, dest, curExt, extn, nfile, nFldr
set fso = CreateObject("Scripting.FileSystemObject")
src="c:\fso\"
dest="e:\backup\"
curExt = "PS1"
for each file in fso.GetFolder(src).Files
extn=ucase(fso.GetExtensionName(file.Name))
if extn=curExt then
nfile=fso.GetFile(file).name
nFldr=dest & date() & "\"
if not fso.FolderExists(nFldr) then
fso.CreateFolder(nFldr)
execData nFldr
Else
execData nFldr
End if
end if
next
sub execData(path)
dim nfile2, fileOut, fileIn, curTime, backupName
fso.CopyFile file, path
for each nfile2 in fso.GetFolder(path).Files
fileOut=fso.GetBaseName(nfile)
fileIn=fso.GetBaseName(nfile2)
curTime=hour(now())&"h"&minute(now())&"m"&second(now)&"s"
backupName=nfile&"_"&date()&"_"&curTime&".BAK"
if (fileOut = fileIn) then
fso.GetFile(nfile2).name=backupName
end if
next
end sub
makfromkz
03.11.2015, 18:12
set CURDATE=%DATE%
copy C:\Архив1С82\222.dt C:\Архив1С82\1С82МояБухгалтери я-%CURDATE:~0,2%_%CURDATE:~3,2%_%CURDATE:~6,4%.dt
Rem в этих двух строчках вся соль переименования в bat-нике