Извлечь оригинальное имя файла из файла

Question

У нас есть куча документов Excel, которые часто разбрасываются. Каждый раз, когда кто-то делает копию файла, в Windows он генерируется как 'Copy of - <filename>.xlsm' . Мы хотели бы извлечь имя файла каждого файла, которому он был назначен первоначально / в первый раз, то есть получить '<filename.txt>' вместо 'Copy of - <filename>.xlsm' .

Я пытался просмотреть свойства файла, такие как Tag, но эти поля не были установлены для некоторых файлов, которые уже были распространены. Можно ли извлечь имя файла из файла, который изначально назначен? (с использованием сценариев VBA или Powershell)

Answer 1

Попробуйте это после того, как вы присвоите имя filename переменной имени в VBA

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