Olá Pessoal,

Seguinte, tenho um string com o seguinte conteúdo :

strCaminho ="pastasub_pastaarquivo.zip"

Como faço para pegar apenas a "sub_pasta" da string ?

Imagino que posso usar as barras ("") como referencia. Mas
como selecionar ou separar apartir da 2ª barra até a próxima
barra ?

Agradeço qualquer ajuda.

JGD

vc pode usar a funcao INSTR pra achar a posicao do caractere separador que vc quer e depois vc pode usar o MID para pegar a string apatir da posicao....

 

assim?

 

Private Sub Command1_Click()
  Dim strCaminho As String
  Dim strAux As String
  Dim intPosicao As Integer
  strCaminho = "pastasubpastaarquivoarq.zip"
  intPosicao = InStr(1, strCaminho, "")
  If intPosicao <> 0 Then
    strAux = Mid(strCaminho, intPosicao + 1)
    intPosicao = InStr(1, strAux, "")
    strAux = Mid(strAux, 1, intPosicao - 1)
  End If
  MsgBox strAux
End Sub

 

retorno: pastaarquivo

Ê garoto......