USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Arquivos/Diretórios)

Título da Dica:  Separar o Path do Nome do Arquivo e Extensão
Postada em 3/2/2003 por Felipe            
' 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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página