Переименовать файл вчерашним днем - VB

Узнай цену своей работы

Формулировка задачи:

PS спасибо заранее

Решение задачи: «Переименовать файл вчерашним днем»

textual
Листинг программы 
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("x:\foldertree\filename.ext")
f.Name = CStr(DateAdd("d",-1,Date)) & ".ext"
Set f = Nothing
Set fso = Nothing

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

Оцени полезность:

11   голосов , оценка 4.091 из 5