Voltando a série de dicas de coisas simples, mas que não achamos facilmente na internet, justamente na hora que mais precisamos...
Como pegar somente o local do arquivo numa CommonDialog (Return File Path on CommonDialog).
'Depois de já devidamente chamada...
'------- TRADUÇÃO P/ INGLÊS -- DESCULPE, MAS É BEM RUINZINHO (SORRY BY MY ENGLISH)'Crio a variavel que irá armazenar o local
Dim strLocalSomente As String
'Pego somente o local fazendo um 'left' que terá seu término (lenght)
'baseado na busca reversa do 'nome do arquivo' no local completo do arquivo
strLocalSomente = Left(NomeDaCommonDialog.FileName, _
(InStrRev(NomeDaCommonDialog.FileName, _
NomeDaCommonDialog.FileTitle, _
-1, vbTextCompare)) - 2)
'Pronto... Temos agora só o local... Agora é só testar?
MsgBox strLocalSomente
'This will store the file path
Dim strPathOnly As String
'Get only the file path making a Left with the lenght based in reversal
' search by filename on complete filenamestrPathOnly = Left(CommonDialogName.FileName, _
(InStrRev(CommonDialogName.FileName, _
CommonDialogName.FileTitle , _
-1, vbTextCompare)) - 2)
'Allright... Let's Test?
MsgBox strPathOnly
Pronto... Agora é só correr pro abraço...