Ir para conteúdo

POWERED BY:

Arquivado

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

Diego Gonçalves

[Resolvido] criação diretório

Por , em ASP Clássico

Recommended Posts

Diego Gonçalves    0

Diego Gonçalves
Postado

Salve pessoal....

 

Estou criando um sistema de upload com criação de diretório, mas por enquanto estou testando apenas a criação do diretório.

Funciona +- assim:

 

O usuário digita um nome em um txtbox, e o sistema cria uma pasta com o nome do texto digitado pelo usuario.

 

Codigo

 

<%
Dim dir, objFS

	   dir = Request.Form("txt_pasta")
	   Set objFS = Server.CreateObject("Scripting.FileSystemObject")
	   'Verifica se já existe o diretório
	   If Not objFS.FolderExists(Server.MapPath( upload/dir) ) Then
	   'Cria o diretório
	   objFS.CreateFolder(Server.MapPath( upload/dir))
	   Response.Write "Sucesso!"
	   End if
	   Set objFS = Nothing %>

Mas está aparecendo o seguinte erro:

 

Microsoft VBScript runtime error '800a0006'

Overflow

 

/pda/enviar.asp, line 15

 

Caso alguém possa me ajudar, eu agradeço!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Qual é a linha 15? Pode ser que o erro não seja nesse ponto do seu script.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tambem nao vi nada que pudesse gerar esse erro ali

 

qual a linah exata?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

da uma olhada neste link pode te ajudar aqui

Compartilhar este post

Link para o post
Compartilhar em outros sites

Diego Gonçalves    0

Diego Gonçalves
Postado

da uma olhada neste link pode te ajudar aqui

Obrigado pela ajuda de todos até o momento...

 

Bom em relação a pergunta da ordem das linhas feita por "Salgado" :

 

<%
11-  Dim dir, objFS
12-
13-  dir = Request.Form("txt_pasta")
14-  Set objFS = Server.CreateObject("Scripting.FileSystemObject")
15- 'Verifica se já existe o diretório
16-  If Not objFS.FolderExists(Server.MapPath( upload/dir) ) Then
17- 'Cria o diretório
18-  objFS.CreateFolder(Server.MapPath( upload/dir))
19-  Response.Write "Sucesso!"
20-  End if
21-  Set objFS = Nothing %>

Só lembrando o erro é este:

Microsoft VBScript runtime error '800a0006'

Overflow

 

/pda/enviar.asp, line 15

 

Desde já, mt obrigado pela ajuda de todos...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Poste seu script até essa linha, mas acredito que o problema esteja no servidor que pode estar sobrecarregado pois esse erro de overflow (sobrecarga) é mais comum quando se tem muitas instruções e objetos executando em um único script.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

é verdade pois agora fez menos sentido ainda pois o erro deu num comentario

Compartilhar este post

Link para o post
Compartilhar em outros sites

Diego Gonçalves    0

Diego Gonçalves
Postado

Salve pessoal....

 

Estou criando um sistema de upload com criação de diretório, mas por enquanto estou testando apenas a criação do diretório.

Funciona +- assim:

 

O usuário digita um nome em um txtbox, e o sistema cria uma pasta com o nome do texto digitado pelo usuario.

 

Codigo

 

<%
Dim dir, objFS

	   dir = Request.Form("txt_pasta")
	   Set objFS = Server.CreateObject("Scripting.FileSystemObject")
	   'Verifica se já existe o diretório
	   If Not objFS.FolderExists(Server.MapPath( upload/dir) ) Then
	   'Cria o diretório
	   objFS.CreateFolder(Server.MapPath( upload/dir))
	   Response.Write "Sucesso!"
	   End if
	   Set objFS = Nothing %>

Mas está aparecendo o seguinte erro:

 

Microsoft VBScript runtime error '800a0006'

Overflow

 

/pda/enviar.asp, line 15

 

Caso alguém possa me ajudar, eu agradeço!!!!

Pois é gente, mas aí é que tah porque, o meu escript se resume nisso, o resto é HTML.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<%
Dim dir, objFS

	   dir = Request.Form("txt_pasta")
	   Set objFS = Server.CreateObject("Scripting.FileSystemObject")
	   'Verifica se já existe o diretório
	   If Not objFS.FolderExists(Server.MapPath( upload/dir) ) Then
	   'Cria o diretório
	   objFS.CreateFolder(Server.MapPath( upload/dir))
	   Response.Write "Sucesso!"
	   End if
	   Set objFS = Nothing %>

</body>
</html>

Será que não estou errando alguma sintaxe sei lah...

Mas pessoal, mt obrigado msm pela ajuda que estão me dando.

 

Diego Gonçalves

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Verifica se você não está postando a código do arquivo errado. Pois não faz sentido a linha 15 ser o comentário e dar erro no comentário. Se for o caso, remova essa linha e veja se permanecerá aí o erro.

 

Outra coisa, coloque entre aspas: Server.MapPath("upload/" & dir)

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

realmente esse erro de OverFlow ness linha ta estranho, tive um problema em uma maquina que gerava erro na criação, e verifiquei que a maquina tinha um script bloker (do anti-virus) que nao deixava criar, verifique as configurações de segurança da maquina.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Diego Gonçalves    0

Diego Gonçalves
Postado

Bom gente, desde já mt obrigado por estar tentando dar uma força....

 

Fiz algumas alterações como na questão das aspas e "&", porém ainda não está dando certo. O pior e que não está me apresento erro algum, está abrindo a pagina de http 500 erro interno....

 

Segue o código:

 

<%
Dim dir, objFS

	   dir = Request.Form("txt_pasta")
	   Set objFS = Server.CreateObject("Scripting.FileSystemObject")
	   'Verifica se já existe o diretório
	   If Not objFS.FolderExists(Server.MapPath("upload/"&dir)) Then
	   'Cria o diretório
	   objFS.CreateFolder(Server.MapPath("upload/"&dir))
	   Response.Write "Sucesso!"
	   End if
	   Set objFS = Nothing %>
Eu já não tenho ideia mais, pois ja tentei de várias formas e nada...

 

Como vcs fariam esse processo que estou tentando( Pegar o que o usuário digitou em um textbox e criar uma pasta com o nome que foi digitado).

 

Pode ser que exista outra forma, não sei, mas já tentei de tudo e até agora não consegui fazer um processo tão simples como este...

 

Mt obrigado desde já.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

desabilita no browser a exibição de mensagens de erros amigaveis HTTP

e você tentou usar a Classe para criar Diretórios, que lhe mostrei...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Diego Gonçalves    0

Diego Gonçalves
Postado

Graças a Deus, está resolvido a questão para criar o diretório...

 

Estava utilizando Enctype "multipart/form-data".

 

Só foi desativar isso que não sei pra que que serve, e deu certo, a funçao que cria o diretório. Porém aí é que tah, porque eu estou utilizando o

 

Persist Upload para enviar os arquivos upload dentro da pasta criada, e ele requer que esse Enctype "multipart/form-data" esteja habilitado. O que eu faço, terei que utilizar algum outro componente, ou tem jeito de conciliar os dois(criar o diretório e utilizar o Persist Upload) ???

 

Desde já mt Obrigado a todos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

beleza, kker coisa posta ai...

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