Como obter o nome e a extensão de um arquivo específico através do método ShowFilePicker? (Exemplo: o caminho “C:\teste\teste.txt” deve retornar somente “teste.txt”.)
Solução:
Para isto, pode-se utilizar os métodos Len (que retorna o número de caracteres de uma string), Right (que retorna um número especiíico de caracteres a partir da direita) e InStrRev (que retorna a posição de um caractere em especifico de uma string). Com estes métodos, é possível descobrir o tamanho da string e a posição da última barra (“\”); isto vai diminui-los do tamanho total do texto, e assim retornar somente o nome do arquivo.
Abaixo um exemplo de script que utiliza os comandos descritos acima:
Dim FileName, size, pos, file
Application.ShowFilePicker true, FileName, “pdf”,128, “Files PDF|*.pdf|All Files”
size = Len(FileName)
pos = InStrRev(FileName,“\”, size,0)
file = Right(FileName, size – pos)
MsgBox file
