从文件中提取原始文件名

从文件中提取原始文件名

我们有一堆 Excel 文档,它们经常被扔来扔去。每次有人复制文件时,在 Windows 中它都会生成为'Copy of - <filename>.xlsm'。我们希望提取最初/第一次分配的每个文件的文件名,即获取而'<filename.txt>'不是'Copy of - <filename>.xlsm'

我尝试查看文件属性(例如标签),但对于某些已分发的文件,尚未设置这些字段。是否可以提取最初分配的文件的文件名?(使用 VBA 或 Powershell 脚本)

答案1

filename在 VBA 中将文件名分配给变量后尝试此操作

Dim origFilename As String
origFilename = filename
If Left(filename, 10) = "Copy of - " Then
    origFilename = Replace(filename, "Copy of - ", "")
End If

相关内容