Pegar extensão de arquivo

[Creedence 1]

Gostaria de saber como faço para pegar a extensão de um arquivo .Obrigado,Creedence

[kauebranco 0]

var = "arquivo.asp"RecebeExtensao = mid(var,instr(1,var,".",1),3)axo que isso funciona ...qq coisa posta ae ...

[mx loco 1]

Ou tambem.

 

rresponse.whire right("asrquivo.asp", 3)

 

Ou mesmo usando Split

 

Estensao=Split("arquivo.jpg", ".")

response.write(Estensao(1))

 

Agora eu axo que com FSO seria possível tambem.

 

Ou mesmo usando FSO.

 

<% Set fso = CreateObject("Scripting.FileSystemObject") Set MeuArquivo = fso.GetFile("d:/sites/Folha_Regional/teste.asp") Response.Write MeuArquivo.Type Set MeuArquivo = Nothing Set fso = Nothing %>Ate+

[Marcelo Barcellos 0]

Prefira a utilização do FSO, pois, a extensão do arquivo pode possuir 4 caracteres, o que faria a primeira situação não dar certo.(meuarquivo.tiff)A utilização do SPLIT, poderia ficar comprometida caso um arquivo possua mais de um ponto. (meu.arquivo.doc), precisando sempre pegar a ultima posição.

[kauebranco 0]

-------------------------------------------------------------------------var = "arquivo.tiff"Extensao = split(var,".")RecebeExtensao = Extensao(ubound(Extensao))------------------------------------------------------------------------- mesmo que o arquivo tenha mais de um ponto no nome assim axo que ele pega sempre a extensão ....

[mx loco 1]

-------------------------------------------------------------------------

var = "arquivo.tiff"

Extensao = split(var,".")

RecebeExtensao = Extensao(ubound(Extensao))

 

-------------------------------------------------------------------------

 

mesmo que o arquivo tenha mais de um ponto no nome assim axo que ele pega sempre a extensão ....

<{POST_SNAPBACK}>

Realmente, funcionou legal... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Marcelo Barcellos 0]

Prefira a utilização do FSO, pois, a extensão do arquivo pode possuir 4 caracteres, o que faria a primeira situação não dar certo.(meuarquivo.tiff)

 

A utilização do SPLIT, poderia ficar comprometida caso um arquivo possua mais de um ponto. (meu.arquivo.doc), <b>precisando sempre pegar a ultima posição.</b>

<{POST_SNAPBACK}>

Como eu disse...Pegar sempre a última posição.

o Script com FSO ficaria assim, e não com TYPE. Que indica somente se é do tipo "Folder" ou "File".

 

Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")

Response.Write ObjFso.GetExtensionName("C:\acesso.js")

[mx loco 1]

Opa marcelo, vaçleu...eu naum conhecia este parametro do FSO."GetExtensionName"O FSO é uma ferramenta e tanto...