给你写个 AutoIt 脚本吧
#include <File.au3>
$src = "D:\A"
$tag = "E:\bak"
$file = _FileListToArray($src, "*", 1)
If @error Then Exit
For $i = 1 To $file[0]
FileCopy($src & "\" & $file[$i], _
$tag & "\" & StringLeft(FileGetTime($src & "\" & $file[$i], 1), 8), 9)
Next
温馨提示:答案为网友推荐,仅供参考