使用FileSystemObject将图像文件重写为具有更新的Modified Date的目录？

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