Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

igadino

Verificação de arquivos

Por , em ASP Clássico

Recommended Posts

igadino    0

igadino
Postado

Olha só pessoal eu quero fazer um sistema de upload em asp, mas só antes de fazer o UPLOAD do arquivos tenho que verificar se o arquivos existe na diretório se não existe o UPLOAD será feito e se existei o arquivos retornará uma mensagem dizendo que o arquivos existeigadino@yahoo.com.br

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

brother, com qual componente de upload você está trabalhando?ou está sem componentes?Em ambos os casos é possível fazer isso.mas com componente alguns tem uma propriedade que faz esse teste pra você.Já o sem componentes, teria que ser feito na mão.. mas q funfaria tb!

Compartilhar este post

Link para o post
Compartilhar em outros sites

igadino    0

igadino
Postado

brother, com qual componente de upload você está trabalhando?ou está sem componentes?Em ambos os casos é possível fazer isso.mas com componente alguns tem uma propriedade que faz esse teste pra você.Já o sem componentes, teria que ser feito na mão.. mas q funfaria tb!

você que é fera em asp voce pode dah uma olhada neste codigo e me falar porque não estouconseguindo fazer o UPLOAD, dos arquivos conforme abaixo:Galera estou necessitando de Sistema de UPLOAD, em que eu escolho o diretorio na hora que eu for fazer o UPLOAD, e tambem quero que envia até 05 (cinco) arquivos, conforme codigos abaixo:Ver se alquem pode me ajudar fico muito gratoesporo retorno de alquem:igadino@yahoo.com.br<!--Inicio do codigo html--!><html><body bgcolor="#FFFFFF"><form method="POST" enctype="multipart/form-data" action="upload.asp"><select name="arquivos" id="arquivos" class="entrada" style="width:160"><option value="../../">/</option><option value="../noticias">Noticias</option><option value="../wwwroot\Mural">Mural</option><option value="../cadastro">Cadastro</option></select><br><input type="FILE" size="40" name="dirname"><br><input type="FILE" size="40" name="dirname"><br><input type="FILE" size="40" name="dirname"><br><input type="FILE" size="40" name="dirname"><br><input type="FILE" size="40" name="dirname"><br><input type=submit value="Upload!"></form></body></html> <!-- Fim do codigo html--!><!--Inicio do codigo asp--!><%Dim Contador, TamanhoDim ConteudoBinario, ConteudoTextoDim Delimitador, Posicao1, Posicao2Dim ArquivoNome, ArquivoConteudo, PastaDestinoDim objFSO, objArquivoPastaDestino=Server.MapPath(Request.Form("arquivos"))'Determina o tamanho do conteúdoTamanho = Request.TotalBytes'Obtém o conteúdo no formato binárioConteudoBinario = Request.BinaryRead(Tamanho)'Transforma o conteúdo binário em stringFor Contador = 1 To TamanhoConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))Next 'Determina o delimitador de camposDelimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)'identifica os arquivo e grava no discoSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)do while TrueArquivoNome = ""Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")if Posicao1 = 0 thenexit doelse' Determina o nome do arquivoPosicao1 = Posicao1 + 10Posicao2 = InStr(Posicao1, ConteudoTexto, """")For contador = (Posicao2 - 1) to Posicao1 step -1if Mid(ConteudoTexto, Contador, 1) <> "\" then '"ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNomeelseexit forend ifnext'Determina o conteúdo do arquivoPosicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1))'Grava o arquivoif ArquivoNome <> "" thenSet objArquivo = objFSO.CreateTextFile(PastaDestino & "\" & ArquivoNome, true)objArquivo.WriteLine ArquivoConteudoobjArquivo.CloseSet objArquivo = nothingend ifend ifLoopSet objFSO = nothingresponse.Write "Upload realizado com sucesso<br>"%><!--Fim do codigo asp --!>O Erro seabaixo:Informações técnicas (para a equipe de suporte)Tipo de erro:Server.MapPath(), ASP 0171 (0x80004005)O parâmetro Caminho deve ser especificado para o método MapPath./upload1/upload.asp, line 8Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) Página: POST 33571 bytes to /upload1/upload.aspPOST Data:. . . Hora: quinta-feira, 26 de janeiro de 2006, 11:00:06 Mais informações: Suporte da MicrosoftEste post foi editado por igadino: Ontem, 11:16 AM

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Cara, não precisa abrir um novo tópico para complementar uma duvida, podemos continuar por aqui mesmo.

 

O problema é o Request.FORM em um formulário com ectype, pelo que sei os dados não vêm de forma correta assim.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Cara, não precisa abrir um novo tópico para complementar uma duvida, podemos continuar por aqui mesmo.O problema é o Request.FORM em um formulário com ectype, pelo que sei os dados não vêm de forma correta assim.

Verdade tiozinho não fique postando a mesma coisa, tinha mais um topico igual a esse... http://forum.imasters.com.br/public/style_emoticons/default/yay.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito