datetime - 日付スタンプを使用してファイル名を変更するための VBscript

Question

フォルダー内のすべてのファイルに、今日の日付と時刻のスタンプを次の形式で追加する必要があります: filename_mmddyyyy.fileextension. 誰かがこれについて助けてくれるか、バットスクリプトを使用してこれを行うことができますか.

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 はあなたのローカルを考慮に入れています。

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