EXTENSAO DE UM ARQUIVO

WEBMASTER 05/01/2005 14:04:38
#58773 Resposta escolhida

Se você quer saber a extensão somente, basta fazer um right do nome ou usar instrrev (como nos exemplos que tem aqui), mas pelo que vc tá dizendo quer a nível de binário o conteúdo do arquivo, é isso ?

CAJU 05/01/2005 14:17:28
#58781

um achado!!

acho que é isso que vc quer.


http://www.vbmania.com.br/vbmdetail.php?varID=2195

CARINHENA 05/01/2005 14:36:26
#58794

na verdade apenas quero saber se é um arquivo .zip para que eu ative uma função para descompacta-la.
E caso não seja, continue sem essa funnção.

caju, esse tópico que vc passou eu ja li e não deu certo...

USUARIO.EXCLUIDOS 05/01/2005 15:45:26
#58818

Dim StringARQ As String

StringARQ = ' Arquivo que quer Verificar Path

If Right(StringARQ,3) = "zip" Then
MsgBox "é um arquivo .zip"
End If

Serviu.... ???

CARINHENA 05/01/2005 17:17:06
#58848

Consegui de um jeito bem simples:

Dim arquivo as string
Dim extensao as string

arquivo = "C:\Windows.Gol\Teste.zip"
extensao = Mid(arquivo, InStrRev(arquivo, "."), Len(arquivo))
MsgBox extensao

valeu pela ajuda!!!

CAJU 05/01/2005 21:31:49
#58889

desculpe....
é pq não entendi sua pergunta...
se vc conseguiu como vc falou na sua última resposta, o Maurício (WEBMASTER) já respondeu...

boa sorte!