Crear carpetas

Dinopepino · #1 (**permalink**) 10/01/2002, 04:45

Buenas

Se pueden crear carpetas en asp

Ficheros de texto se que si pero no se si hay alguna forma de crear carpetas.

Gracias y un saludo

carcellan · #2 (**permalink**) 10/01/2002, 04:57

Si, con el método createfolder del FSO.
Por ejemplo:

<pre>
<%
Set fs = CreateObject("Scripting.FileSystemObject&quot ;)

if not fs.FolderExists(carpeta) then
fs.CreateFolder carpeta
End if
%>
</pre>

Dinopepino · #3 (**permalink**) 10/01/2002, 05:27

Gracias lo he probado asi pero no me funciona

set FSO = Server.CreateObject("Scripting.FileSystemObje ct")

if FSO.folderexists("c:\temp")=true then
fso.createfolder "c:\nueva"
else
response.write "No existe"
end if
set FSO = nothing

que hago mal??

tambien he probado asi
set FSO = Server.CreateObject("Scripting.FileSystemObje ct")

if FSO.folderexists("c:\temp")=true then
fso.createfolder ("c:\nueva")
else
response.write "No existe"
end if

set FSO = nothing

y tampoco.....

Gracias :(

Mecenias · #4 (**permalink**) 10/01/2002, 05:38

Prueba con:

<pre>
set FSO = Server.CreateObject("Scripting.FileSystemObje ct")

if (FSO.folderexists("c:\temp")) then
fso.CreateFolder ("c:\\nueva")
else
response.write "No existe"
end if

set FSO = nothing

</pre>

te sirvio?

Dinopepino · #5 (**permalink**) 10/01/2002, 05:58

De momento no

Se te ocurre algo???

Gracias de todas formas por contestar

Un saludo

Mecenias · #6 (**permalink**) 10/01/2002, 06:03

Bueno de primeras dime que hace, te da un error o simplemente no hace nada, otra cosa ¿Tienes permiso de escritura?

Haz una prueba con este codigo

<pre>
<%
dim filesys, newfolder
set filesys=CreateObject("Scripting.FileSystemObj ect")
If Not filesys.FolderExists("c:\dinopepino\") Then
newfolder = filesys.CreateFolder "c:\Dinopepino\"
Response.Write("A new folder '" & newfolder & "' has been created")
End If
%>
</pre>

Dime algo?

dimoito · #7 (**permalink**) 10/01/2002, 06:15

Utiliza más response.write para ver por donde anda. Supongo que estarás intentando crear la carpeta en el raiz del servidor ¿no?

Dinopepino · #8 (**permalink**) 10/01/2002, 06:36

Hola otra vez

este es el error que me da con el script que em has pasado

Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/intranet/aplicacion/curriculum/carpetaprueba.asp, line 13, column 33
newfolder = filesys.CreateFolder "c:\Dinopepino\"
--------------------------------^

Un saludo

Dinopepino · #9 (**permalink**) 10/01/2002, 06:42

ya no da el error, pero se queda a medio acargar la pagina y no sale nada

Que puede ser??

Mecenias · #10 (**permalink**) 10/01/2002, 06:58

Bien acabo de probar este codigo en mi maquina y me crea la carpeta dinopepino:

<pre>
dim filesys, newfolder
set filesys=CreateObject("Scripting.FileSystemObj ect")
If Not filesys.FolderExists("c:\dinopepino\") Then
newfolder = filesys.CreateFolder ("c:\Dinopepino\")
Response.Write("A new folder '" & newfolder & "' has been created")
else
Response.Write("Ya existe la carpeta")
End If
</pre>

Nota:La carpeta te la crea en el directorio raiz del SERVIDOR no en el del cliente.

Pruebalo y nos dices?

Dinopepino · #11 (**permalink**) 10/01/2002, 10:33

Gracias a todos

Lo estaba haciendo en 2000 profesional y no funcionaba, sin embargo al pasarlo al 2000 server ya funciona

Un saludo