Total Commander

Volniy Громадное спасибо. Все работаем. Только одно но.
Хотелось бы чтоб дата ставилась 2006.11.21
Нучтоб год был первым, далее месяц, потом число
Спасибо

wert202 писал(а):Хотелось бы чтоб дата ставилась 2006.11.21
Нучтоб год был первым, далее месяц, потом число

ОК. Замени в скрипте строку

Код: Выделить всё

     theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name

на

Код: Выделить всё

     theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name

Volniy писал(а):
wert202 писал(а):Хотелось бы чтоб дата ставилась 2006.11.21
Нучтоб год был первым, далее месяц, потом число
ОК. Замени в скрипте строку
Код: Выделить всё
     theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name
на
Код: Выделить всё
     theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name 

Громадное спасибо. Все работает. Не мог раньше написать, инета не было

Volniy писал(а):ОК. Замени в скрипте строку
Код: Выделить всё
     theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name
на
Код: Выделить всё
     theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name 

А где нужно подправить чтобы дата получалась не 2006.12.8,
а 2006.12.08, чтобы к дню даты добавлялась к единичным цифрам 0.
Правда не смотрел еще может быть тоже самое с месяцами получается.

wert202 писал(а):А где нужно подправить чтобы дата получалась не 2006.12.8, а 2006.12.08, чтобы к дню даты добавлялась к единичным цифрам 0.

Теперь замени

Код: Выделить всё

theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name

на

Код: Выделить всё

     Dim M,D
     M=Month(Date): If M<10 Then M= "0" & M
     D=Day(Date):    If D<10 Then D= "0" & D   
     theFile.Name = Year(Date) & "." & M & "." & D & " " & theFile.Name

Total Commander

как сделать кнопку добавления даты в выделенных файлах