ayuda con FileSystemObject, por favor!!!
rucamario
21 de Febrero del 2002
Hola, tengo un problema con un Script que utiliza el FileSystemObject.
Me funciona perfectamente en una maquina con Win 2000, pero cuando lo
intento poner en win 2000 Server se queda "pensando" y no funciona ni
da ningún error. ¿Puede ser problema de permisos? he probado ha dar
todo tipo de permisos a la carpeta en cuestion "fotos" incluidos los de
invitado e IUSR_...
El metodo drives funciona mientras q getfolders() no. Alguien ha conseguido q funcione getfolders() o getfiles() en win 2000 server.
Por favor si sabeis algo contestar.
Un par de ejemplos:
El codigo en cuestion es el siguiente:
<%@ Language=VBScript %>
<%
Function MostrarFiles(ruta)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(ruta)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name & " "& f1.size & " bytes."
s = s & "<BR>"
Next
MostrarFiles = s
End Function
%>
<html>
<head>
<title>kk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-
1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%=MostrarFiles("c:Inetpubwwwrootfotos")%>
</body>
</html>
Sin embargo el sigiente codigo funciona perfectamente en ambas
maquinas.
<%@ Language=VBScript %>
<%
Function MostrarListaDeUnidades
Dim fso, d, dc, s, n
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
If d.DriveType = Remote Then
n = d.ShareName
ElseIf d.IsReady Then
n = d.VolumeName
End If
s = s & n & "<BR>"
Next
MostrarListaDeUnidades = s
End Function
%>
<html>
<head>
<title>MostrarListaDeUnidades</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-
1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%=MostrarListaDeUnidades%>
</body>
</html>
Por favor, necesito ayuda urgente.
Un saludo y GRACIAS [:)]
Me funciona perfectamente en una maquina con Win 2000, pero cuando lo
intento poner en win 2000 Server se queda "pensando" y no funciona ni
da ningún error. ¿Puede ser problema de permisos? he probado ha dar
todo tipo de permisos a la carpeta en cuestion "fotos" incluidos los de
invitado e IUSR_...
El metodo drives funciona mientras q getfolders() no. Alguien ha conseguido q funcione getfolders() o getfiles() en win 2000 server.
Por favor si sabeis algo contestar.
Un par de ejemplos:
El codigo en cuestion es el siguiente:
<%@ Language=VBScript %>
<%
Function MostrarFiles(ruta)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(ruta)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name & " "& f1.size & " bytes."
s = s & "<BR>"
Next
MostrarFiles = s
End Function
%>
<html>
<head>
<title>kk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-
1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%=MostrarFiles("c:Inetpubwwwrootfotos")%>
</body>
</html>
Sin embargo el sigiente codigo funciona perfectamente en ambas
maquinas.
<%@ Language=VBScript %>
<%
Function MostrarListaDeUnidades
Dim fso, d, dc, s, n
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
If d.DriveType = Remote Then
n = d.ShareName
ElseIf d.IsReady Then
n = d.VolumeName
End If
s = s & n & "<BR>"
Next
MostrarListaDeUnidades = s
End Function
%>
<html>
<head>
<title>MostrarListaDeUnidades</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-
1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%=MostrarListaDeUnidades%>
</body>
</html>
Por favor, necesito ayuda urgente.
Un saludo y GRACIAS [:)]