pegar nome arquivo usando FSO

[vicoluis 0]

alguém sabe como pegar o nome de um arquivo usando FSO. mas sem pegar a extensão dele.. tipo eu to usando file.name mas ele mostra assim arquivo.jpg e eu queria q ele mostrasse somente arquivo... sem o .jpgalguém sabe como fazer? :huh:

[Martinelli 0]

Faça assim:

 

ASP [/tr][tr]<%

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

teste = NomeArquivo.GetBaseName("C:\teste.txt")

response.write teste

%>

[/tr]

 

Flw:joia:

Martinelli

[vicoluis 0]

cara, eu to fazendo assim:

 

ASP [/tr][tr]

<%

' todas imagens de produtos cadastrados.

lista_imagens pasta_imagens, "jpg,gif,swf"

Function lista_imagens( strFolder, tipo )

caminho = "../produtos/"

Dim Folder, File

Dim ObjFS, objRootFolder

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

Set objFolder = ObjFS.GetFolder(Server.MapPath("../produtos/"))

 

For Each File in objFolder.files

tipo = Replace(tipo, ",", "")

 

For i = 1 to len(tipo) step 3

If lcase(Right(File, 3)) = lcase(Mid(tipo, i, 3)) Then

response.Write "<script>"& vb script:selecionarecopiar();'>Selecionar foto:</a> - Excluir<BR><BR>" & vbcrlf

End If

Next

Next

 

Response.Write "</td></tr></table>" & vbcrlf

 

Set objFolder = Nothing

Set Folder = Nothing

End Function

%>

[/tr]

 

eu precisava dar um nome unico para esta função em javascript q tem ai no meio... e tinha pensado em colocar o nome do arquivo... será que poderia me ajudar?

 

ta vendo esta linha

 

response.Write"document.produto."& arquivo &".focus();"& vbcrlf

response.Write"document.produto."& arquivo &".select();"& vbcrlf

 

produto é o nome do formulario... tudo bem.. mas ali no lugar de arquivo, ficaria um nome unico... entende...

 

consegui ser claro?

:huh: :mellow: :)

[Mário Monteiro 179]

alguém sabe como pegar o nome de um arquivo usando FSO. mas sem pegar a extensão dele.. tipo eu to usando file.name mas ele mostra assim arquivo.jpg e eu queria q ele mostrasse somente arquivo... sem o .jpgalguém sabe como fazer? :huh:

se você tem o arquivo com extenção use um left para tira-la

Arquivo = LEFT(Arquivo,INSTR(Arquivo,".") - 1)

[vicoluis 0]

ai cara... seguindo seu exemplo foi resolvido meu problema, valeu pela ajuda ;)

[Mário Monteiro 179]

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif OK http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Salgado 4]

Opa, posso dar uma opnião, no lugar do InStr use o InStrRev, pois poderá existir outros pontos no nome do arquivo, e usando o InStrRev você eliminará só o último trecho, justamente a extensão válida.