Ver Se Existe Imagens Igual No Diretorio

[Guest --FLAVIO DINIZ --]

Ola

Pessoal

Quero saber se já existe a mesma imagem no diretorio como faço componente sa file

<%dim upl, Arquivo01, nomearquivo, id


 %>

<% Set upl = Server.CreateObject("SoftArtisans.FileUp") %> 
<% upl.Path = "e:\home\origemdigital1\dados\img\" %>
<%



nomearquivo = upl.form("nomecliente")
arquivo01 = upl.shortfilename



upl.saveas(nomearquivo & id & arquivo01 )


%>


Nome Arquivo : <%=nomearquivo & upl.shortfilename%><br>

&nbsp;Total de Bytes Enviados: <%=upl.TotalBytes%> 


<% Set upl = Nothing %>

[bareta]

use FSO ou consulte a documentação do SA para ver as opções referentes ao overwrite.

[Guest --FLAVIO DINIZ --]

use FSO ou consulte a documentação do SA para ver as opções referentes ao overwrite.

eu não seu usar esse fso

alguém tem uma exemploai

[bareta]

http://www.portalmaracaju.com.br/blog/arti...=61&blog=14

[Guest --FLAVIO DINIZ --]

use FSO ou consulte a documentação do SA para ver as opções referentes ao overwrite.

OLA PESSOAL RESOLVI VALEU

BARETA

<%dim upl, Arquivo01, nomearquivo

%>

<% Set upl = Server.CreateObject("SoftArtisans.FileUp") %>

<%Set FSO = Server.CreateObject("Scripting.FileSystemObject")%>

<% upl.Path = "e:\home\origemdigital1\dados\img\" %>

<%

nomearquivo = upl.form("nomecliente")

arquivo01 = upl.shortfilename

if upl.TotalBytes > 100 THEN

response.write " Tamanho maximo de Arquivo permitido 100kb "

else

IF FSO.FileExists("e:\home\origemdigital1\dados\img\" & nomearquivo &"_"& arquivo01 ) = true then

response.write " Arquivo já existe tente novamente "

else

upl.saveas(nomearquivo &"_"& arquivo01 )%>

Nome Arquivo : <%=nomearquivo & upl.shortfilename%><br>

&nbsp;Total de Bytes Enviados: <%=upl.TotalBytes%>

<%

end if

%>

<% Set upl = Nothing %>

[Norivan Oliveira]

Hehehe por isto que eu gosto do fórum... tinha que fazer isto agora, fui responder o tópico e achei pronto hehehe