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

Modem Bandluxe C120 no Linux (Modem Oi)

Olá a todos.

Poderia postar o guia completo, mas vou resumir no link para download no site da Telsec.

O manual de instalação para o linux é bem completo e repleto de imagens; explica a solução para todos os possíveis erros que possam ocorrer, além de evitar que ocorra que o modem seja desconectado após inserir um pendrive (erros comuns na maioria dos usuários que optaram por métodos alternativos).

Sem mais delongas, segue o link: http://www.telsec.com.br/download.asp?id=C120&type=6