如何在 Windows 中使用"Date Created"覆盖"Date Modified"？

Question

我有一个运行Windows服务器的系统，我可以访问Powershell, VBA等

我需要一种方法，用"创建日期"属性的日期覆盖目录中所有文件的"修改日期"属性。大约有100万个文件需要在1万个左右的子目录中更新，这些子目录从一个主目录分支出来。

是否有一个简单的方法来做到这一点与命令行或Powershell等?

Answer 1

这是一个混合批处理/javascript文件(保存为批处理，每个示例touch.cmd)，它将重置起始文件夹下所有文件的修改日期时间，将其设置为相同文件的创建日期时间。

@if (@This==@IsBatch) @then
@echo off
rem **** batch zone *********************************************************
    setlocal enableextensions disabledelayedexpansion
    set "targetFolder=%~1"
    if not defined targetFolder set "targetFolder=%cd%"
    rem call javascript part of batch file
    cscript //nologo //e:Javascript "%~f0" /startFolder:"%targetFolder%"
    rem End of batch area. End batch execution before reaching js zone
    endlocal
    exit /b
@end
// **** Javascript zone *****************************************************
    if (!WScript.Arguments.Named.Exists('startFolder')) {
        // if no start folder is given, leave
        WScript.Quit(1);
    };
    // retrieve start folder
    var startFolder = WScript.Arguments.Named.Item('startFolder');
    // instantiate needed components
    var fso = WScript.CreateObject('Scripting.FileSystemObject');
    var shell = WScript.CreateObject('Shell.Application');
    // recursive function to set the ModifyDate to the CreationDate
    (function processFolder( folderPath ){
        // test for valid paths
        folderPath = fso.GetAbsolutePathName((folderPath || '' ));
        if (!fso.FolderExists(folderPath)) return ;
        // retrieve a reference to the folder namespace
        var folderNS = shell.NameSpace(folderPath);
        // process files inside this folder
        for (var files = new Enumerator(fso.GetFolder( folderPath ).Files ); !files.atEnd() ; files.moveNext()){
            var file = files.item();
            WScript.StdOut.WriteLine( file.Path );
            folderNS.ParseName( file.Name ).ModifyDate = file.DateCreated;
        };
        // process files under child folders
        for (var folders = new Enumerator(fso.GetFolder( folderPath ).SubFolders); !folders.atEnd() ; folders.moveNext()){
            processFolder( folders.item().Path );
        };
    })( startFolder );
    WScript.Quit(0);