PEGAR CAMINHO DO ARQUIVO SEM NOME DO ARQUIVO
Olá amigos !
Tem alguma rotina em VB para pegar o caminho de um arquivo sem o mesmo retornar o nome do arquivo. EX
C:\PASTA\ARQUIVO1\SESSAO1\TEXTO.TEXT
Gostaria retornar somente
C:\PASTA\ARQUIVO1\SESSAO1\
Tem alguma rotina em VB para pegar o caminho de um arquivo sem o mesmo retornar o nome do arquivo. EX
C:\PASTA\ARQUIVO1\SESSAO1\TEXTO.TEXT
Gostaria retornar somente
C:\PASTA\ARQUIVO1\SESSAO1\
Talvez isso te ajude em algo
assim pego so a pasta
Dim myString As String
myString = [Ô]c:\pasta\arquivo.txt[Ô]
Textn.Text = (Mid$(myString, 1, InStrRev(myString, [Ô]\[Ô])))
novastring = Left(Textn, (Len(Textn) - 1))
Textn = novastring
Combo1.Text = GiveMeTheEnd(Textn)
Private Function GiveMeTheEnd(sIN As String) As String
Dim arrAll() As String
arrAll = Split(sIN, [Ô]\[Ô])
GiveMeTheEnd = arrAll(UBound(arrAll))
End Function
assim pego so a pasta
Dim myString As String
myString = [Ô]c:\pasta\arquivo.txt[Ô]
Textn.Text = (Mid$(myString, 1, InStrRev(myString, [Ô]\[Ô])))
novastring = Left(Textn, (Len(Textn) - 1))
Textn = novastring
Combo1.Text = GiveMeTheEnd(Textn)
Private Function GiveMeTheEnd(sIN As String) As String
Dim arrAll() As String
arrAll = Split(sIN, [Ô]\[Ô])
GiveMeTheEnd = arrAll(UBound(arrAll))
End Function
Tópico encerrado , respostas não são mais permitidas