com Upload sem componente

[Junior99 0]

Boa noite galera.Possuo uma rotina de Upload de arquivo sem componentes que peguei aqui mesmo no Forum, mas me deparei com um problema que nao sei como solucionar. Gostaria de um auxilio dos amigos.A duvida seria; antes de gravar o arquivo precisaria checar se o diretorio existe, se existir grava, se nao existir criar toda a estrutura.Agradeco o auxilio dos amigos.Segue copia do codigo.**********************************************************' Chamando Funções, que fazem o Upload funcionar'byteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBinCaminho = UploadRequest.Item("Caminho").Item("Value")' Tipo de arquivo que esta sendo enviado'tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType")' Caminho completo dos arquivos enviados'caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName")' Nome dos arquivos enviados'nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\"))' Conteudo binario dos arquivos enviados 'arquivo = UploadRequest.Item("arquivo").Item("Value")' pasta onde as imagens serao guardadas'pasta = Server.MapPath("../Documentos/" & Caminho)descricao = nome_arquivonome_arquivo = "/" & nome_arquivonomecompleto = "../Documentos/"&Caminho & nome_arquivo' pasta + nome dos arquivos'carquivo = "/" + nome_arquivo' Fazendo o Upload do arquivo selecionado'if arquivo <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo) for i = 1 to LenB(arquivo) MyFile.Write chr(AscB(MidB(arquivo,i,1))) Next MyFile.CloseEnd if' cadastra os dados no banco de dados' Dim RsImage, sqlImage Set RsImage = Server.CreateObject("ADODB.RecordSet") sqlImage = "INSERT INTO ................" Set RsImage = ConectImage.Execute(sqlImage) ConectImage.Close********************************************************

[jrcardozo 4]

para verificar a pasta no servidor e criar se não existir código abaixo

 

Set fFSO = Server.CreateObject("Scripting.FileSystemObject")    If (fFSO.FolderExists(strCaminho) = False) Then   Set fCriaPasta = fFSO.CreateFolder(strCaminho)   Set fCriaPasta = Nothing  End if Set fFSO = Nothing

para fazer essa verificação você utiliza antes de fazer o upload, tente colocar o codigo uma linha acima desta

 

carquivo = "/" + nome_arquivo

obviamente adapte o código de acordo com as variaveis

[Junior99 0]

Obrigado pela ajuda.

[jrcardozo 4]

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

[Junior99 0]

Ola Jonathan.Adaptei o seu codigo, mas me surgiram algumas duvidas:- qual a estrutura de caminho que deverei utilizar - C:\Inetpub\wwwroot\site\documentos\pasta........ - /site/documentos/pasta- necessito alterar alguma permissao de usuario para que possa criar a estrutura. Nas propriedades do diretorio virtual ja esta marcada a opcao Gravar. Estou utilizando um WinXp fora de rede para realizar os testes, depois irei colocar em um Win2003 Server. Quando for passar para a nova estrutura, terei que mexer em alguma permissao no site, caso necessario?- poderei criar a estrutura completa de uma unica vez, ou terei que criar pasta a pasta. /documentos /documentos/pasta /documentos/pasta/subpastaObrigado