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

[wert202]

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

[Volniy]

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

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

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

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

на

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

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

[wert202]

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

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

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

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

на

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

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

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

[wert202]

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

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

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

на

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

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

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

[Volniy]

А где нужно подправить чтобы дата получалась не 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