Использовать FileSystemObject, чтобы перезаписать файл изображения в каталог с обновленной датой изменения?

Question

Команда FileSystemObject CopyFile возьмет любой файл и сделает его копию, но оставит дату изменения без изменений. Есть ли способ открыть существующий файл изображения (JPG, PNG и т. Д.) И вместо этого «записать» его в каталог (двухэтапный процесс?), Что приведет к изменению даты изменения? Я знаю, FileSystemObject может сделать это с помощью текстовых файлов, но не уверен, есть ли способ сделать это с помощью JPG или PNG.

Answer 1

Вы можете сделать это так:

1. Скопируйте ваш файл с FileSystemObject.CopyFile

2. «Прикоснитесь» к скопированному файлу с помощью функции, предусмотренной в этом SO вопросе:

   Sub touch(strDir, strFileName, DateTime)
       Dim objShell, objFolder
       Set objShell = CreateObject("Shell.Application")
       Set objFolder = objShell.NameSpace(strDir)
       objFolder.Items.Item(strFileName).ModifyDate = DateTime
   End Sub
   

... Передать текущую дату в touch():

touch strDir, strFileName, Now