Windows文件名加日期前缀程序

发表于 更新于 分类于 阅读次数 评论数

1. 功能

选中文件后运行，增加文件创建日期或文件修改日期前缀（yymmdd格式），支持多文件批量处理，自动跳过已有 yymmdd 格式日期前缀的文件。

2. DEMO

3. 发布页

文件日期前缀-Quicker

4. 特点

  1. 针对 Office 文件（.xlsx/.pptx/.docx）特别设计，支持读取创建内容的时间（Content Created）或最后一次保存的日期（Date last saved），但由于 Windows 无接口直接读取 Office 文件元数据，采用略繁琐的方法：将.xlsx/.pptx/.docx文件类型改为.zip文件，解压到系统临时文件夹Temp，读取.\docProps\core.xml中的dcterms:created及dcterms:modified节点，在读取完成后还原文件类型并删除解压出的临时文件。修改文件名并不涉及文件修改，无任何副作用，请放心使用。
  2. 针对文件复制导致创建时间被刷新为当前时间的问题（见下图），特别设计逻辑，当文件修改时间＜文件创建时间时，采用文件修改时间作为前缀。
  3. 如果 Office 元数据错误（见下图），则采用文件创建时间或文件修改时间作为前缀；元数据错误的判断依据：（1）创建内容的时间（Content Created）或最后一次保存的日期（Date last saved）小于 PC 普及时间 1980 年；（2）元数据中无创建内容的时间（Content Created）或最后一次保存的日期（Date last saved）。

5. 逻辑

6. 提取 Office 文件元数据的方法

以读取创建内容的时间（Content Created）为例。

6.1 PowerShell

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$rawFilePath = "{filePath}\{fileName}"
$zipFilePath = $rawFilePath -replace '\.xlsx$|\.pptx$|\.docx$', '.zip'
Rename-Item -Path $rawFilePath -NewName $zipFilePath
$tempDir = [System.IO.Path]::GetTempPath() + [guid]::NewGuid().ToString()
New-Item -Path $tempDir -ItemType Directory > $null
Expand-Archive -Path $zipFilePath -DestinationPath $tempDir
$xmlFilePath = Join-Path $tempDir "docProps\core.xml"
if (Test-Path $xmlFilePath) {
    [xml]$xmlDoc = [io.file]::ReadAllText($xmlFilePath)
    $namespaceManager = New-Object System.Xml.XmlNamespaceManager($xmlDoc.NameTable)
    $namespaceManager.AddNamespace("dcterms", "http://purl.org/dc/terms/")
    $createdDateNode = $xmlDoc.SelectSingleNode("//dcterms:created", $namespaceManager)
    if ($createdDateNode -ne $null) {
        $createdDate = $createdDateNode.InnerText
        Write-Host "$createdDate"
    } else {
        Write-Host ""
    }
}
Remove-Item -Path $tempDir -Recurse -Force
Rename-Item -Path $zipFilePath -NewName $rawFilePath

6.2 VBA

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function GetCreationDate() As Variant
    Dim obj As Object
    Dim creationDate As Variant
    Select Case Application.Name
        Case "Microsoft Excel"
            Set obj = ActiveWorkbook
        Case "Microsoft Word"
            Set obj = ActiveDocument
        Case "Microsoft PowerPoint"
            Set obj = ActivePresentation
    End Select
    creationDate = obj.BuiltInDocumentProperties("Creation Date")
    If Err.Number = 0 Then
        GetCreationDate = creationDate
    Else
        GetCreationDate = ""
    End If
    MsgBox "创建内容的日期为：" & creationDate, vbInformation '调试用
End Function
相关推荐