NOME DO ARQUIVO SEM EXTENSAO

USUARIO.EXCLUIDOS 27/05/2005 16:54:38
#85548
Olá,

Estou usando o codigo abaixo (fornecido pelo colega Gabriel_Logan) para pegar o nome do arquivo sem o caminho onde ele está. Só que o resultado retorna o nome com a extensão do arquivo (ex: nome.RTF). Como adapto para pegar o nome sem a extensão do arquivo? Obrigado.

Dim Arquivo() As String
Dim DiretorioArq As String

DiretorioArq = Text1.Text
Arquivo = Split(DiretorioArq, "\")
Text1.Text = Arquivo(UBound(Arquivo))
FABIO.ALEXANDRE 27/05/2005 17:03:38
#85551 Resposta escolhida
TENTA ASSIM

Text1.Text = Left(Arquivo(UBound(Arquivo)), Len(Arquivo(UBound(Arquivo))) - 4)

ESPERO TER AJUDADO
WEBMASTER 27/05/2005 17:03:57
#85553 

Sub Teste()
Dim Arquivo() As String
Dim DiretorioArq As String
Dim Nome As String

'DiretorioArq = Text1.Text
DiretorioArq = "c:\winnt\system32\mscommctl.ocx"
Arquivo = Split(DiretorioArq, "\")
Nome = Arquivo(UBound(Arquivo))
If InStr(1, Nome, ".") = 0 Then
 MsgBox Nome
Else
 MsgBox Mid(Nome, 1, InStrRev(Nome, ".") - 1)
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar