quinta-feira, 21 de maio de 2009

VB6 CommonDialog - Retornar Local do Arquivo (Path Only)

Fazia tempo que não postava...

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...

'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

'------- TRADUÇÃO P/ INGLÊS -- DESCULPE, MAS É BEM RUINZINHO (SORRY BY MY ENGLISH)

'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 filename

strPathOnly = Left(CommonDialogName.FileName, _
(InStrRev(CommonDialogName.FileName, _
CommonDialogName.FileTitle , _
-1, vbTextCompare)) - 2)

'Allright... Let's Test?
MsgBox strPathOnly





Pronto... Agora é só correr pro abraço...

Um comentário:

Gustavo Moreno disse...

Olá, você tem o passo anterior de como instanciar o CommonDialogName?

obrigado