フォルダの更新日時を変更させずにコピーする方法 (ID:118248)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 みなさんこんにちは。また質問させて頂きます。 下記の方法であるフォルダ（フォルダ以下のフォルダ、ファイル含む）を、 をコピーしていますが、フォルダの更新日時が処理を行った日時になってしまいます。（ファイルの更新日時は変わりません） 更新日時を変えずに、フォルダをコピーする方法はあるのでしょうか？ よろしくお願い致します。 Public Function FOLCOPY() Dim objFSO As FileSystemObject Dim objFolder As Folder Dim foldername As String foldername = "c:\Test" 'コピー元のファイルのパス 'ここからが宣言 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(foldername) objFolder.Copy "\\TESTPC\test" 'コピー先 End Function