Extrai o nome do arquivo original de um arquivo

Question

Temos vários documentos do Excel que são muito usados. Toda vez que alguém faz uma cópia de um arquivo, no windows ele é gerado como 'Copy of - <filename>.xlsm' . Gostaríamos de extrair o nome do arquivo de cada arquivo que foi atribuído originalmente / primeira vez, ou seja, obter '<filename.txt>' em vez de 'Copy of - <filename>.xlsm' .

Eu tentei observar as propriedades do arquivo, como Tag, mas esses campos não foram definidos para alguns dos arquivos já distribuídos. É possível extrair o nome do arquivo de um arquivo originalmente atribuído? (usando scripts VBA ou Powershell)

    

Answer 1

Tente isso depois de atribuir um nome de arquivo à variável filename no VBA

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