[Resolvido] Criar pasta via code

[estranho.com 0]

olá galera..

 

ja pesquisei em tudo q é site até com professores de cursos e procurei..

gostaria de saber se tem ai uma boa alma ou um cara expert que saiba cria um diretório via codigo se possivel em asp...

eu fasso um cadastro de um cliente meu e na hora q eu cadastrar o cliente tenho que criar uma pasta para enviar seus arquivos cada cliente tem sua pasta.... eu já fiz quase tudo... só falta criar a pasta ou diretório...

não achei nada a respeito de FileSystemObject ja me diseram q é através dele mais não entendi... aff <_< ..

[hargon 64]

Você cria utilizando FileSystemObject sim.

 

Veja um exemplo:

sub verificaPasta(caminho)
	dim FSO, fa
	set FSO = Server.CreateObject ("Scripting.FileSystemObject")
	if not FSO.FolderExists(caminho) then 
		set fa = FSO.CreateFolder(caminho)
		set fa = nothing
	end if
	set FSO = nothing
end sub

call verificaPasta(caminhoFisico)

Esse exemplo verifica se existe a pasta, se não existir ele cria.

[estranho.com 0]

Você cria utilizando FileSystemObject sim.

 

Veja um exemplo:

sub verificaPasta(caminho)
	dim FSO, fa
	set FSO = Server.CreateObject ("Scripting.FileSystemObject")
	if not FSO.FolderExists(caminho) then 
		set fa = FSO.CreateFolder(caminho)
		set fa = nothing
	end if
	set FSO = nothing
end sub

call verificaPasta(caminhoFisico)

Esse exemplo verifica se existe a pasta, se não existir ele cria.

 

muitissimo obrigado hargon... vlw mesmo..

 

vou testar aqui...

[estranho.com 0]

Você cria utilizando FileSystemObject sim.

 

Veja um exemplo:

sub verificaPasta(caminho)
	dim FSO, fa
	set FSO = Server.CreateObject ("Scripting.FileSystemObject")
	if not FSO.FolderExists(caminho) then 
		set fa = FSO.CreateFolder(caminho)
		set fa = nothing
	end if
	set FSO = nothing
end sub

call verificaPasta(caminhoFisico)

Esse exemplo verifica se existe a pasta, se não existir ele cria.

hargon

...... nesse usando esse exemplo como eu declaro as variaveis tipo com "" '' e eu tenho q pedir no meu servidor para liberarem o acesso ao fso?? pq deu o seguinte erro..

:blink: "Chamada de procedimento ou argumento inválido "

 

te mais..

[hargon 64]

Não entendi a parte de declarar variavel. você quer com aspas? com espaço? Lembre-se que o ideal é criar pastas apenas com numeros e letras e limitar a alguns caracteres especiais, como "_" e "-" por exemplo.

 

Sobre o servidor, a única permissão que você tem que ter é na pasta onde será criada a pasta.

 

Esse erro que deu provavelmente é a forma como você informou o caminho. tem que informar algo assim: call verificaPasta("c:\inetpub\wwwroot\pastanova")

[estranho.com 0]

tipo eu usei assim e deu erro de (Caminho não encontrado /fso.asp, line 8)

 

 

<%

Dim caminho

caminho = "/doctos/nova"

sub verificaPasta(caminho)

dim FSO, fa

set FSO = Server.CreateObject ("Scripting.FileSystemObject")

if not FSO.FolderExists(caminho) then

set fa = FSO.CreateFolder(caminho)

set fa = nothing

end if

set FSO = nothing

end sub

 

call verificaPasta("/doctos/nova")

%>

[hargon 64]

tipo eu usei assim e deu erro de (Caminho não encontrado /fso.asp, line 8)

 

 

<%

Dim caminho

caminho = "/doctos/nova"

sub verificaPasta(caminho)

dim FSO, fa

set FSO = Server.CreateObject ("Scripting.FileSystemObject")

if not FSO.FolderExists(caminho) then

set fa = FSO.CreateFolder(caminho)

set fa = nothing

end if

set FSO = nothing

end sub

 

call verificaPasta("/doctos/nova")

%>

Você não está informando o caminho físico.

 

Informe dessa forma então:

call verificaPasta(Server.MapPath("doctos/nova"))

[estranho.com 0]

tipo eu usei assim e deu erro de (Caminho não encontrado /fso.asp, line 8)

 

 

<%

Dim caminho

caminho = "/doctos/nova"

sub verificaPasta(caminho)

dim FSO, fa

set FSO = Server.CreateObject ("Scripting.FileSystemObject")

if not FSO.FolderExists(caminho) then

set fa = FSO.CreateFolder(caminho)

set fa = nothing

end if

set FSO = nothing

end sub

 

call verificaPasta("/doctos/nova")

%>

Você não está informando o caminho físico.

 

Informe dessa forma então:

call verificaPasta(Server.MapPath("doctos/nova"))

 

 

programação 100% resolvida... obrigado pela atenção até a proxima....

[hargon 64]

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