datetime - VBscript 用于使用日期戳重命名文件名

Question

我需要让文件夹中的所有文件都附加今天的日期和时间戳，格式如下：filename_mmddyyyy.fileextension。有人可以请帮忙，或者可以使用 bat 脚本来完成。

Answer 1

当然可以在批处理文件中完成:-)

@echo off
setlocal
set "timestamp="
for /f "skip=1" %%A in ('wmic os get localdatetime') do (
  if not defined timestamp set "timestamp=%%A"
)
for /f "eol=: delims=" %%F in ('dir /b /a-d myFolder\*') do (
  if "%%~fF" neq "%~f0" ren "%%F" "%%~nF_%timestamp:~4,4%%timestamp:~0,4%%%~xF
)

必须注意确保批处理文件不会自行重命名 - 如果在运行时重命名，它将失败。

Answer 2

请发布您的代码，不管它是坏的还是少的，它确实有帮助，FormatDateTime 考虑到您的当地人，我在欧洲的法兰德斯，所以我的系统添加了 _19062012.ext 但在您的系统上它应该是 _06192012.ext

set oFso = createobject("scripting.filesystemobject")
sDirectorypath = "c:\testing"
rename_files(sDirectorypath)

sub rename_files(folder)
  set oFolder = oFso.getfolder(folder)
  for each oFile in oFolder.files
    new_name = oFile & "_" & replace(FormatDateTime(now,2),"/","") & "." & oFso.GetExtensionName(oFile)
    wscript.echo "renaming " & oFile & " => " & new_name
    errResult = oFso.MoveFile(oFile, new_name)
  next
  for each oSubFolder in oFolder.subfolders
    rename_files(oSubFolder)
  next
end sub