VBS/WSH/JS - [решено] Как вписать дату и время в название файла?

SendMessage · Отправлено: **12:49, 12-03-2011** | #2

navigator19, переделайте по этому образцу:
Из "D:\Backup\%date%_Form.dat" в "D:\Backup\" & Date & "_Form.dat"

navigator19 · Отправлено: **14:26, 12-03-2011** | #3

Огромное спасибо!
А как к названию файла ещё и время добавить?

Iska · Отправлено: **14:29, 12-03-2011** | #4

Я бы ещё предложил использовать не просто дату в локальном формате, а в виде YYYYMMDD (для целей визуальной сортировки файлов по алфавиту): Серый форум / vbscript: получение формата дата-время для имени файла, почерпнутую у amel27 здесь.

SendMessage · Отправлено: **16:28, 12-03-2011** | #5

Iska, а я в свое время такое средствами VBS реализовывал. В принципе, то же самое.

Код:

DT = Now
DateVal = Year(DT) & _
          Right("0" & Month(DT), 2) & _
          Right("0" & Day(DT), 2) & _
          Right("0" & Hour(DT), 2) & _
          Right("0" & Minute(DT), 2) & _
          Right("0" & Second(DT), 2)
WScript.Echo DateVal

Цитата navigator19:

А как к названию файла ещё и время добавить? »

На этом примере разберешься? Я думаю, без проблем.

Iska · Отправлено: **16:52, 12-03-2011** | #6

2SendMessage: угу, аналогично. На VBScript варианты есть, на JScript — уже сложнее. В первую очередь вариант amel27 мне понравился тем, что это готовый вариант для пакетного файла; и, в первую очередь — формат не зависит от региональных настроек

, а файлы с датой/временем в имени я предпочитаю держать именно в японском формате даты «YYYYMMDD», дабы они сразу были визуально отсортированы.

navigator19 · Отправлено: **20:01, 12-03-2011** | #7

Не понял как именно применить это

Код:

DT = Now
DateVal = Year(DT) & _
          Right("0" & Month(DT), 2) & _
          Right("0" & Day(DT), 2) & _
          Right("0" & Hour(DT), 2) & _
          Right("0" & Minute(DT), 2) & _
          Right("0" & Second(DT), 2)
WScript.Echo DateVal

к скрипту, куда это вставить?

SendMessage · Отправлено: **20:22, 12-03-2011** | #8

Цитата navigator19:

к скрипту, куда это вставить? »

Код:

If i = 0 then  
    Dim FSO, DT, DateVal
    DT = Now
    DateVal = Year(DT) & _
              Right("0" & Month(DT), 2) & _
              Right("0" & Day(DT), 2) & _
              Right("0" & Hour(DT), 2) & _
              Right("0" & Minute(DT), 2) & _
              Right("0" & Second(DT), 2)
    Set FSO = CreateObject("Scripting.FileSystemObject")  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\Form.dat",         "D:\Backup\" & DateVal & "_Form.dat"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\history2.dat",     "D:\Backup\" & DateVal & "_history2.dat"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\Session.ini",      "D:\Backup\" & DateVal & "_Session.ini"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\LastSession.ini",  "D:\Backup\" & DateVal & "_LastSession.ini"  
         
    wscript.quit  
End if

navigator19 · Отправлено: **21:53, 12-03-2011** | #9

Спасибо, но файл получается Form.dat_20110312235253 без разделителей как их вставить?

OSArev · Отправлено: **22:35, 12-03-2011** | #10

Цитата navigator19:

Спасибо, но файл получается Form.dat_20110312235253 без разделителей как их вставить? »

Извините, что вклиниваюсь в диалог...

Цитата navigator19:

navigator19 »

, ты этого хочешь?

Код:

d = DatePart("d", date)&"." & DatePart("m", date) &"." & DatePart("yyyy", date) ' дата
t = DatePart("h", time)&"." & DatePart("N", time) &"." & DatePart("S", time)    ' время
' Временные значения можно переставлять, как хочешь.
'---------------------------------------------------------------------------
    Set FSO = CreateObject("Scripting.FileSystemObject")  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\Form.dat",         "D:\Backup\" &d&"_"&t&"_Form.dat"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\history2.dat",     "D:\Backup\" &d&"_"&t&"_history2.dat"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\Session.ini",      "D:\Backup\" &d&"_"&t&"_Session.ini"  
    FSO.CopyFile "D:\Maxthon2\SharedAccount\Data\LastSession.ini",  "D:\Backup\" &d&"_"&t&"_LastSession.ini"