fyle system

[filipescoob 1]

Salve galera bom dia para todos

 

Ja postei este codigo porem ninguem pode me ajudar... vamos tentar de novo então

 

O erro é o seguinte quando ele vai mover o arquivo ele da um erro dizendo que o arquivo ja existe e quando não existe ele da pau na hora de gravar no banco de dados ta mó loucura isso...

 

 

 

 

 

 

if nomearq = null or s = "nao" then					novapasta = ext_pasta					if not filesys.folderExists("C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta) then						  set novapasta = filesys.CreateFolder("C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta)								caminho1 = "C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta								cam = replace(caminho1, "\","879")								'Grava registro de existencia da pasta no banco de dados__________________________								set ini = Server.CreateObject("ADODB.recordset")								SQL2 = "insert into(nome_pasta, ext_pasta, caminho_pasta Values ('" & ext_pasta & "', '"& ext_pasta &"', '" & cam &"')"								set ini = Conexao.Execute(Sql2)								filesys.MoveFile "C:\Inetpub\wwwroot\coa\arquivos\"&nome_arq, "C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta							else if filesys.folderExists("C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta) then								filesys.MoveFile "C:\Inetpub\wwwroot\coa\arquivos\"&nome_arq, "C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta								else								response.Redirect("./cad_arq.asp")							end if							end if

[Salgado 4]

							if nomearq = null or s = "nao" then
								novapasta = ext_pasta
								if filesys.folderExists("C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta) then
										Response.Write("A Pasta já existe!<br>Movendo os arquivos!")
								Else
										set novapasta = filesys.CreateFolder("C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta)
										caminho1 = "C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta
										cam = replace(caminho1, "\","879")
							'Grava registro de existencia da pasta no banco de dados________________________
										SQL2 = "insert into(nome_pasta, ext_pasta, caminho_pasta Values ('" & ext_pasta & "', '"& ext_pasta &"', '" & cam &"')"
										Conexao.Execute(Sql2)
							   End If
							filesys.MoveFile "C:\Inetpub\wwwroot\coa\arquivos\"&nome_arq, "C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta
							response.Redirect("./cad_arq.asp")
						end if

Seu erro: No segundo IF ele estava testando se a pasta existia, se não existia ele criava e movia os arquivos, correto? Nesse IF havia um ELSE e nesse ELSE um outro IF, testando novamente se a pasta existia e movendo os arquivos. O problema, nesse ponto a pasta sempre existia, Se já existisse antes apenas movia os arquivos, mas se havia sido criada ela já possui os arquivos ecem gravados nela, por isso o erro.

 

O que fiz foi apenas testar e criar a pasta caso ela não exista, e fora do teste os arquivos são movidos para ela. Uma sugestão, passe a utilizar SERVER.MAPPATH, pois uma alteração de caminho e seu Script passará a gravar dados em pasta errada.

[filipescoob 1]

beleza salgado brigadão pela ajuda...

 

o codigo ficou assim olha

 

if nomearq = null or s = "nao" then								   set novapasta = filesys.CreateFolder("C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta)											caminho1 = "C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta											cam = replace(caminho1, "\","879")								'Grava registro de existencia da pasta no banco de dados________________________											SQL2 = "insert into tbl_pasta (nome_pasta, caminho_pasta) Values ('" & ext_pasta & "', '" & cam &"')"											Conexao.Execute(Sql2)									Else										  filesys.MoveFile "C:\Inetpub\wwwroot\coa\arquivos\"&nome_arq, "C:\Inetpub\wwwroot\coa\arquivos\"&ext_pasta								'response.Redirect("./cad_arq.asp")								   End If

porem o que acontece é o seguinte...

 

Quando a pasta existe ele diz que o arquivo não foi encontrado... e quando ele cria a pasta do zero ele diz que arquivo ja existe... ele não move de jeito nenhum... o que eu faço ????????

[Salgado 4]

Testa com o que eu passei, seu código ainda está com alguns erros.

[filipescoob 1]

kara to tentando de tudo mas porem não da certoEle diz que o arquivo não foi encontrado... não sei o que esta acontecendo ele não esta conseguindo mover para a pasta... não move sendo que o arquivo esta la o que sera que pode ser isto ?????abraço fica na paz... fui...Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A0046)Permissão negada/coa/arquivos/cadastro_send_arq.asp, line 47Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) Página: POST 329 bytes to /coa/arquivos/cadastro_send_arq.aspPOST Data:nome_arq=FP+filipe.xls&titulo=zcxv&descricao=zcxv&pc=zcv&ver=adf&textfield=Filipe+Alves+da+Silva+Souza&nivapr=1&caminho=c%3A%5Cinetpub%5Cwwwroot%5Ccoa%5Carquivos%5CFP+filipe.xls&tipo_arq=application%2 . . . Eu troquei a sintex do comando e coloquei a copyfile e ela diz que não tem permisão o que sera que pode estar dando de errrado... não entendo o que esta acontecendo... abraços... Ps.: sera que não é por isso que o outro não esta dando certo... até mais falow...

[arr 0]

... e ela diz que não tem permisão...

Tái a resposta: falta permissão na pasta. Pesquise sobre isso.

[filipescoob 1]

ja arrumei o problema da permição é que eu usei o copyfile para ver se era erro da variavel mas quando volto para o outro não funciona de jeito nenhum...

[filipescoob 1]

Quando ele vai mover o arquivo ele da uma mensagem dizendo que o arquivo ele da a mensagem que o arquivo ja existe... mas não existe ainda....