[Resolvido] Pegar o nome do arquivo sem a extensão (FSO)

[KleberSP 0]

Estava tentando pegar um nome de arquivo sem a extensão achei até um post aqui mais não consegui fazer funcionar

como faço?

 

agradeço a atenção

<%
Dim Vid
Vid = request.querystring("id")
%>
			
<%
Dim fso, pasta, arquivo
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set pasta = fso.getFolder(Server.MapPath("clientes/"& Vid & "/"))
arquivo = left(arquivo,InStrRev(arquivo,".") - 1)
%>
			
<%
For Each arquivo In pasta.files
Response.Write(arquivo.Name & "<br /><br />")
Response.Write("tamanho: " & FormatNumber (arquivo.Size/1024) & "<br /><br />")
Response.Write("tamanho: " & arquivo.Type & "<br /><br />")
Response.Write("<img src=""clientes/"& Vid & "/" & arquivo.Name & """>")
Response.Write("<br /><hr /><br />")

Next
Set arquivo = Nothing
Set pasta = Nothing
Set fso = Nothing
%>

[DSerma 19]

Use a função Mid() para pegar o nome completo e remover os 4 ultimos caracteres ( o ponto e a extensão ).

 

O uso da função Mid() é:

 

Mid(Variavel, Inicio, Quantidade)

 

Abraços...

[KleberSP 0]

então mais deste jeito não dá certo pois o arquivo tem nomes com tamanhos diferentes e eu tava querendo tirar o ponto e extensão do arquivo

 

Ps. se alguem poder corrigir o titulo da pergunta no forum

"Pegar o nome do arquivo sem a extensão (FSO)"

[DSerma 19]

Tem CERTEZA que nao da certo ??

 

você chegou a tentar antes de postar isso ?

 

Variavel = "Arquivo.txt"

Var1 = Mid(Variavel,1,(Len(Variavel)-4))

Response.Write(Var1)

[KleberSP 0]

Vai ser usado numa intranet

 

desculpa mais não sei aonde estou errando, pois esta ficando assim tentei todos estes

 

resultado:

 

Variavel = "arquivo"
Var1 = Mid(Variavel,1,(Len(Variavel)-4))
Response.Write(Var1)
arqC:\asp\net\clientes\4\produto1
pega sem a extensão mais pega o caminho absoluto, mais"arq"

Response.Write(Mid(arquivo,1,(Len(arquivo)-4)) & "<br /><br />") 
C:\asp\net\clientes\4\produto1
pega sem a extensão mais pega o caminho absoluto


Response.Write(left(arquivo.Name,InStrRev(arquivo,".") - 1) & "<br /><br />")
produto1.jpg
pega com a extensão não pega o caminho absoluto

Response.Write(left(arquivo,InStrRev(arquivo,".") - 1) & "<br /><br />")
C:\asp\net\clientes\4\produto1
pega sem a extensão mais pega o caminho absoluto


Response.Write(right(arquivo,InStrRev(arquivo,".") - 26) & "<br /><br />")
produto1.jpg

pega com a extensão não pega o caminho absoluto

 

 

 

queria pegar o arquivo sem caminho absoluto e sem a extensão

[DSerma 19]

OMFG !

 

Cara... você nao está pegando o nome de cada arquivo via FSO ?

 

For Each arquivo In pasta.files
Response.Write(Mid(arquivo.Name,1,Len(arquivo.Name)-4) & "<br /><br />")
Next

Entendeu agora ?????????????????????????????????

 

você pega o nome do arquivo via FSO.. ai com o MID você remove os 4 ultimos caracteres.. que é o ponto mais a extensão....

[KleberSP 0]

muito obrigado mesmo, deu certo e desculpa, é que eu estou começando programar mais valeu Darkdemo

[DSerma 19]

As vezes sou meio rude.. ou até "mau humorado".. mas se eu sempre der a solução prontinha, como o cara vai aprender ????...

 

Faço isso para "forçar" a pessoa a pensar um pouco e desenvolver a lógica de programação.....

 

Parabens pela solução..

 

Abraços...

[KleberSP 0]

você esta certo Darkdemo, e eu estou penando em logica quero pegar firme ver se aprendo obrigado mais uma vez

[Salgado 4]

Posso dar uma dica? não use fixo dessa forma, pegue a posição do último ponto "." do nome e use a função MID para isso. Consegui me fazer entender?

[KleberSP 0]

assim tb funcionou

 

Response.Write(left(arquivo.Name,InStrRev(arquivo.Name,".") - 1) & "<br /><br />")