Dundas Upload, Verificar Se Arquivo Já Existe

[.Andreia.]

Pessoal,

to com uma dúvida que tá me matando, já pesquisei até em site árabe mas nada resolve.

Tenho um formulário onde o usuário faz um upload da foto, mas preciso verificar se o arquivo já existe na pasta. Caso tenha, mostra um erro avisando disso.

o código está assim:

set objUpload = server.CreateObject("Dundas.Upload.2") 
objUpload.MaxFileSize = 1048576 
objUpload.UseUniqueNames = false 
objUpload.Save "caminho da minha pasta" 
caminho = "caminho da minha pasta"
foto = objUpload.GetFileName(objUpload.Files(0).Path)

If objUpload.FileExists(caminho & foto) Then
 response.write("erro")
else
 response.write("ok")
end if

O problema é que SEMPRE imprime ok. Já tentei de tudo, até coloquei um SELECT (porque grava no banco o nome do arquivo) mas ele simplesmente ignora meu select...

alguém tem uma sugestao de como fazer? Só preciso que gere uma mensagem de erro caso o arquivo já exista na pasta.

[cyberalexxx]

resgate o nome do arquivo e teste via FSO que deve ser mais facil.

[.Andreia.]

Ok, Alex, tentei assim, mas SEMPRE escreve "já tem"

set objUpload = server.CreateObject("Dundas.Upload.2") 
objUpload.MaxFileSize = 1048576 
objUpload.UseUniqueNames = false 
objUpload.Save "caminho da minha pasta" 
caminho = "caminho da minha pasta" & foto
foto = objUpload.GetFileName(objUpload.Files(0).Path)

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Caminho) Then
response.write "já tem"

else
response.write "não tem"
End If

[cyberalexxx]

Essa comparação não esta sendo feita após o upload do arquivo??? pra mim parece ser a unica explicação.

[.Andreia.]

Alex, está depois. Tanto que quando eu UP um arquivo que não tem, ele inclui na pasta. Se já tem o arquivo ele não faz o UP mas tb não aparece mensagem de erro.

ps.: esse é o codigo todo

[cyberalexxx]

tenta colocar o codigo do FSO na segunda linha script, ou seja antes de gravar o arquivo.

[.Andreia.]

Sabe qual é o problema Alex, é que eu só consigo resgatar o nome da foto (só o nome, sem o caminho junto) quando:

foto = objUpload.GetFileName(objUpload.Files(0).Path)

e isso está atrelado ao Dundas

[cyberalexxx]

e se voce resgatar o nome do arquivo com o caminho e depois quebrar(split) pela "\" invertida e ai fazer a comparação com o ultimo valor do vetor (Ubound)??? sera que funciona???

[.Andreia.]

Eu tinha pensado nisso Alex, mas daí tem um problema... quando eu resgato o valor do campo ele vem o caminho todo. Esse caminho varia de tamanho porque depende da pasta onde o usuario está selecionando...

Quando eu uso FSO antes do Dundas pra fazer a verificação, ocorre o mesmo problema porque eu não consigo pegar só o nome do arquivo... vem tudo junto.

ps.: só estou usando o Dundas porque é o unico que o servidor aceita, porque é horrivel esse componente, nem no site achei a documentação.

[kuroi]

sera q não seria assim?

If objUpload.FileExists(caminho & "\" & foto) Then
response.write("erro")
else
response.write("ok")
end if

[.Andreia.]

sera q não seria assim?

If objUpload.FileExists(caminho & "\" & foto) Then
response.write("erro")
else
response.write("ok")
end if

Tb já tentei assim Kuroi, já tentei monte de jeito, até tentei xingando a mãe dele mas pior

vl pela atenção

[kuroi]

tentou um response.write caminho & foto pra ver se volta o caminho correto?

[JCMPJ]

Use o objeto NextFile, com ele você consegue o nome do arquivo antes de fazer o Save.

[.Andreia.]

tentou um response.write caminho & foto pra ver se volta o caminho correto?

Já sim Kuroi, até colei no IE pra ver se abre a imagem e funcionou certinho. É como eu disse nos tópicos acima.. ele sempre cai em uma condição independe se é ou não. Já tentei até usando SELECT mas eu não sei que diabos acontece que ele ignora o select, até se eu escrever o select errado ele nem gera erro...

[JCMPJ]

Não sei, mas pode ser

set objUpload = server.CreateObject("Dundas.Upload.2")

Set objNextFile = objUpload.GetNextFile()

caminho = "caminho da minha pasta"

If objUpload.FileExists(caminho & objNextFile.TagName) Then

response.write("erro")

else

objUpload.MaxFileSize = 1048576

objUpload.UseUniqueNames = false

objUpload.Save "caminho da minha pasta"

response.write("ok")

end if

[.Andreia.]

JCMPJ, gero o seguinte erro:

You can not use Save method after GetNextFile.

linha

objUpload.Save "caminho da minha pasta"

Se eu coloco antes, dae o erro

Objeto necessário: 'objNextFile'

[.Andreia.]

Estava pensando aqui, talvez uma saida seria:

pegar o caminho todo, por exemplo:

D:\Meus documentos\imagens\foto.gif

o arquivo começa a partir da ultima \

ah, mas tb não sei como fazer isso, se alguém tive uma ideia...

[JCMPJ]

Hummm

Mais provável objNextFile.Save "caminho da minha pasta"

[.Andreia.]

JCMPJ, não deu pra testar sua opção porque mexi tanto no arquivo que não tenho mais o ponto que era pra alterar.... Bom achei uma solução que testei e funciona certinho.

Vou colocar aqui, se alguém tiver uma ideia pra melhorar, agradeço:

<!--#include file="conexao.asp"-->
<% 
call abre_conexao

'cria instância do objeto 
set objUpload = server.CreateObject("Dundas.Upload.2") 

'estipula o tamanho máximo do arquivo 
objUpload.MaxFileSize = 1048576 

'formatando o nome do arquivo 
objUpload.UseUniqueNames = false 

'informa o path onde os arquivos serão salvos 
objUpload.Save "caminho_da_pasta" 

foto = objUpload.GetFileName(objUpload.Files(0).Path)
caminho = "caminho_da_pasta" & foto

sql="select * from TABELA"
set tab = conexao.execute(sql)

do while not tab.eof

if foto = tab("img_cartao") then %>

<script language="javascript">
window.alert('Este arquivo já existe');
window.location.href="../default.asp"; 
</script>

<%
exit do

end if
tab.movenext
loop

if tab.eof then

sql_insere = "INSERT INTO TABELA (img_cartao) VALUES ('"& foto &"')"
set tab_insere = conexao.execute(sql_insere)

response.redirect "../default.asp"
end if

set tab = nothing
Set objUpload = Nothing
%> 

vl a atenção de todos.

[kuroi]

o arquivo começa a partir da ultima \

tipo assim?

caminho = "D:\Meus documentos\imagens\foto.gif"
nome = right(caminho,instr(strreverse(caminho),"\") - 1)

[JCMPJ]

Oi Andreia,

Você grava o novo arquivo mesmo que ele já exista, ou seja, se existe grava por cima do antigo. Então só estava faltando um detalhezinho no primeiro código que você postou. Olha ai, em vermelho.

set objUpload = server.CreateObject("Dundas.Upload.2")

objUpload.MaxFileSize = 1048576

objUpload.UseUniqueNames = false

objUpload.Save "caminho da minha pasta"

caminho = "caminho da minha pasta"

foto = objUpload.GetFileName(objUpload.Files(0).Path)

If objUpload.FileExists(caminho & "\" & foto) Then

response.write("erro")

else

response.write("ok")

end if

[.Andreia.]

JCMPJ não esqueci não, no caminho da pasta está assim (exemplo):

D:\Meus Documentos\Imagens\

Eu tb já tinha tentado no início da forma que você colocou, e tb não deu.

[JCMPJ]

Putz, postei uma coisa nada a ver. Desculpa ai.

Do jeito que coloquei sempre vai existir mesmo, já gravou né.

É assim, para gravar somente se for um novo arquivo:

<%
Set objUpload = server.CreateObject("Dundas.Upload.2")
objUpload.MaxFileSize = 1048576
objUpload.UseUniqueNames = false
Set objNextFile = objUpload.GetNextFile()
caminho = "C:\Inetpub\wwwroot\teste"
If objUpload.FileExists(caminho & "\" & objNextFile.FileName) Then
  	Response.Write("ERRO")
  	Else
      	objNextFile.Save caminho
      	Response.Write("OK")
End If
%>

ou, para gravar de qualquer forma(novo ou não)

<%
Set objUpload = server.CreateObject("Dundas.Upload.2")
objUpload.MaxFileSize = 1048576
objUpload.UseUniqueNames = false
Set objNextFile = objUpload.GetNextFile()
caminho = "C:\Inetpub\wwwroot\teste"
If objUpload.FileExists(caminho & "\" & objNextFile.FileName) Then
  	strmsg="ERRO"
  	Else
    	strmsg="OK"
End If
objNextFile.Save caminho
Response.Write strmsg
%> 

[.Andreia.]

boooooooa JCMPJ, a primeira opção que você me passou funcionou, adaptei aqui e ficou assim:

<!--#include file="conexao.asp"-->
<% 
call abre_conexao

Set objUpload = server.CreateObject("Dundas.Upload.2")
objUpload.MaxFileSize = 1048576
objUpload.UseUniqueNames = false
Set objNextFile = objUpload.GetNextFile()
caminho = "D:\Meus Documentos\IMAGENS"

	If objUpload.FileExists(caminho & "\" & objNextFile.FileName) Then
%>
<script language="javascript">
window.alert('Este arquivo já existe!');
window.location.href="../default.asp"; 
</script>

<%
  Else
  objNextFile.Save caminho
	titulo_foto = objUpload.form("titulo_foto")
	sql_insere = "INSERT INTO TABELA (titulo_cartao, img_cartao) VALUES ('"& titulo_foto &"','"& objNextFile.FileName &"')"
	set tab_insere = conexao.execute(sql_insere)
%>
<script language="javascript">
window.alert('Arquivo salvo com sucesso');
window.location.href="../cartoes_virtuais.asp"; 
</script>
<%

End If

Set objUpload = Nothing
%> 

Bem melhor, obrigadaa

[Zenner]

Turma.. Todos os forums tem praticamente as mesmas informacoes sobre o dundas uoload, mas o que nunca achei foi como fazer o dundas salvar o arquivo exatamente com o nome que eu quero..

ex.: upo um arq de nome xcvcvc.jpg e quero que ele seja salvo com o nome temp.jpg.

O que devo fazer??

[.Andreia.]

http://scriptbrasil.com.br/forum/index.php...ghlite=renomear