Prezado colaborador,
Se vc notou, todos ficaram na duvida quanto a que resposta dar pois sua mensagem não foi muito precisa. Não que eu esteja dando bronca em vc mas sugetionando para que seja sempre explicito na sua pergunta. Antes de postar qualquer tipo de duvida, utilize a nossa busca, tanto no forum quanto nas dicas pois aqui tem a resposta que vc deseja. A resposta a seguir está na nossa seção dicas e se vc a utilizar não terá que ficar tanto tempo esperando uma resposta para o seu problema.
Lembre-se: ESTAMOS "SEMPRE" AQUI PARA AJUDAR, porém um pouquinho de de ajuda não faz mal.
' Essa função irá retornar apenas o path de uma string que
' contenha o path e o nome do arquivo
Function ParsePath (sPathIn As String) As String
Dim I As Integer
For I = Len(sPathIn) To 1 Step -1
If InStr(":\", Mid$(sPathIn, I, 1)) Then Exit For
Next
ParsePath = Left$(sPathIn, I)
End Function
' Essa função irá retornar apenas o nome do arquivo de uma
' string que contenha o path e o nome do arquiva
Function ParseFileName (sFileIn As String) As String
Dim I As Integer
For I = Len(sFileIn) To 1 Step -1
If InStr("\", Mid$(sFileIn, I, 1)) Then Exit For
Next
ParseFileName = Mid$(sFileIn, I + 1, Len(sFileIn) - I)
End Function
' E essa função retorna a extensão de uma determinada string
Function GetFileExt (sFileName As String) As String
Dim P As Integer
For P = Len(sFileName) To 1 Step -1
'Find the last ocurrence of "." in the string
If InStr(".", Mid$(sFileName, P, 1)) Then Exit For
Next
GetFileExt = Right$(sFileName, Len(sFileName) - P)
End Function
'Exemplo:
Sub Command1_Click ()
Dim sTargetString As String
' armazenando em uma string
sTargetString = Text1.Text
'Mostrando o path
Label1 = ParsePath(sTargetString)
'Mostrando o nome do arquivo
Label2 = ParseFileName(sTargetString)
'Mostrando a extensão
Label3 = GetFileExt(sTargetString)
End Sub
