エクセルのような形式でファイルの更新日を変更したい

質問

4000ほどのPDFファイルがあります。現在最終ファイル更新日はみなほぼ同日で、これを変更したい。
ファイル名が日付+アルファになっています。1999-09-05_pmとか、YYYY-MM-DDあとおまけです。ファイル名のこの日付部分を最終ファイル更新日に変更したいのです。日付のみで時間は問いません。PDFですので実際にファイルを更新することはありません。今のままでもそれなりですが検索時のソートで少しでも便利になるようにするのが目的です。

スプレッドシートのような形式で扱えるアプリ、フリーソフトがあればと思っているのですが、アドバイスを頂けますでしょうか。イメージとしてはMP3のタグ編集できるSuperTagEditorやリネームソフトのFlexible Renamerですが、コマンドプロンプトでもなんでも実現方法は問いません。

回答No.5

ware121

以下のコードでファイルプロパティの更新日をファイル名の日付にしています。新規フォルダーに５～６個のファイルとVBSファイルをコピーして確認してください。

Dim fso
Dim objFileSys
Dim objFolder
Dim objFile
Dim myPash
Dim myFile
Dim myUpyy
Dim myUpmm
Dim myUpdd
Dim myUpymd
Dim seq
seq = 0
result = MsgBox("続行しますか？", vbYesNo, "確認")
If result = vbNo Then
WScript.Quit
End If
Set objFileSys = CreateObject("Scripting.FileSystemObject")
set fso = createObject("Scripting.FileSystemObject")
Set objFolder = objFileSys.GetFolder(fso.getParentFolderName(WScript.ScriptFullName))
For Each objFile In objFolder.Files
myPash = objFolder & "\" & objFile.Name
myFile = objFile.Name
IF Len(myFile) > 10 Then
IF IsNumeric(Left(myFile,4)) = -1 Then
IF IsNumeric(Mid(myFile,9,2)) = -1 Then
call date_Up()
End IF
End IF
End IF
Next
Wscript.Echo "更新日付入れ替え完了"
Sub date_Up()
myUpyy = Left(myFile,4)
myUpmm = Mid(myFile,6,2)
myUpdd = Mid(myFile,9,2)
myUpymd = myUpyy & "-" & myUpmm & "-" & myUpdd
filePath = myPash
UpdateDate = myUpymd
Dim objFolder
Dim objFile
Dim objShell
Dim fs
Dim folderName
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("Shell.Application")
folderName = Replace(filePath , fs.GetFile(filePath).Name , "")
Set objFolder = objShell.NameSpace(folderName)
Set objFile = objFolder.ParseName(replace(filePath,folderName,""))
objFile.ModifyDate = UpdateDate
End Sub

回答No.4

ware121

ファイルの更新日(例：2025/01/28)を参照して(yy-mm-dd-SEQとおし番号「例：具体的に最初のpdfファイルが1999-09-05_pmとすると25-01-28SEQ1、２つ目のファイルは25-01-28SEQ2」にファイル名を変更します。プロパティのファイルの更新日に一致させています。)

どうも意図が違うようです。ファイルのプロパティの更新日を一括変更作成は私のスキルでは困難です。フォルダーの中のファイル一覧（Excel.メモ帳）にして個別に変更をすることは可能と思います。なお、WSH（VBS)は現在利用できますが、マイクロソフトはWSHの廃止スケージュールを公開しています。VBSファイルは将来動作しなくなります。

回答No.3

ware121

バッチファイルを作成したらいかがですか。

１、以下のコードを選択して「Ctrl」キーと「C」キーを押してコピーする。「Dim fso」～「End Sub」
ここから
↓
Dim fso
Dim objFileSys
Dim objFolder
Dim objFile
Dim myPash
Dim myFile
Dim myUpyy
Dim myUpmm
Dim myUpdd
Dim myUpymd
Dim seq
seq = 0
result = MsgBox("続行しますか？", vbYesNo, "確認")
If result = vbNo Then
WScript.Quit
End If
Set objFileSys = CreateObject("Scripting.FileSystemObject")
set fso = createObject("Scripting.FileSystemObject")
Set objFolder = objFileSys.GetFolder(fso.getParentFolderName(WScript.ScriptFullName))
For Each objFile In objFolder.Files
myPash = objFolder & "\" & objFile.Name
myFile = objFile.Name
call date_Up()
Next
Sub date_Up()
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Mystring =Left(fso.GetFile(myPash).DateCreated,10)

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
myUpyy = Left(fso.GetFile(myPash).DateLastModified,4)
myUpmm = Mid(fso.GetFile(myPash).DateLastModified,6,2)
myUpdd = Mid(fso.GetFile(myPash).DateLastModified,9,2)
seq = seq +1
myUpymd = objFolder & "\" & myUpyy & "-" & myUpmm & "-" & myUpdd & "SEQ" & seq & ".pdf"
call reneme()
End Sub
Sub reneme()
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
IF Len(MyFile) > 10 Then
IF Right(MyFile,4) = ".pdf" Then
On Error Resume Next
objFSO.MoveFile myPash, myUpymd
End If
End If
End Sub
↑
ここまで

２、空のメモ帳を開き「Ctrl」キーと「V」キーを押してメモ帳に貼付ける。

３．名前を付けて保存で場所を任意の場所（例：デスクトップ）、ファイルの種類を（すべてのファイル（*.*))ファイル名を任意のファイル名(
例：aaa.vbs）、エンコードをANSIにして保存すればデスクトップにaaa.vbsが作成される。

４．aaa.vbsを名前を変更したい（pdfファイルがある）フォルダーと同じフォルダーに移動する。

５．aaa.vbsをダブルクリックする。

６．ファイル名が変更されていることを確認する。

＊新規のフォルダーを作成してaaa.vbsのコピーとpdfファイルのコピーを５～６個新規フォルダーに入れてテストした方がいいと思います。

補足

すみません、このコードはファイル名を変更するのでしょうか？最終更新日を変更するのでしょうか？件名のとおり、変更したいのは更新日です。そのための日付はファイル名から取ります。

回答No.2

chie65536（@chie65535）

ご質問の内容は「最終更新日を書き換えたい」のでしょうか？それとも「ファイル名を書き換えたい」のでしょうか？

質問文からは、どちらなのか読み取り難いです。

たぶん「ファイル名を書き換えたい」のだろうと思いますが。

だとすると、

＞現在最終ファイル更新日はみなほぼ同日で、

が問題になります。

「ファイル名を、最終更新日に日付にリネームしたい」のであれば、殆どのファイル名が「同じ日付になる」ので、リネーム後の名前がバッティングしてしまい、リネームが成功するのは、最初の１つだけになってしまいます。

なお、ANo.1の回答は、上記とは逆に「ファイルの更新日を書き換えて、新しい日付を古い日付に書き換えてしまう」ので、注意して下さい。1999-09-05_pm.pdfの最終更新日が1999年09月05日に書き換わってしまい、リネームはされません。下手に実行すると「どれが最新か判らなくなり、取り返しが付かない事態」になります。

補足

すみません、分かりにくかったでしょうか。件名のとおり、変更したいのは更新日です。そのための日付はファイル名から取ります。

回答No.1

NuboChan

PDFファイルの最終更新日をファイル名の日付部分に合わせて変更するソフトとして

Flexible Renamer
https://forest.watch.impress.co.jp/library/software/flexrenamer/

PowerShellで処理するなら

Get-ChildItem -Filter *.pdf | ForEach-Object {
if ($_.Name -match '(\d{4}-\d{2}-\d{2})') {
$date = [DateTime]::ParseExact($matches[1], 'yyyy-MM-dd', $null)
$_.LastWriteTime = $date
}
}

お礼

Flexible Renamerは長年使用しています。更新日の変更も可能ですが、一度にできるか確信が持てませんでした。PSのコードもありがとうございます。勉強します。

Powered by GRATICA