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

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
%>