06/05/2002, 16:55
|
 | | | Fecha de Ingreso: mayo-2001 Ubicación: Gotland-Visvy
Mensajes: 181
Antigüedad: 24 años Puntos: 0 | |
| Re: FSO para archivos en red.
hola prueba este:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgcolor='#ffcc00'>
<FONT color=#660033 size=5><B>Propiedad ShareName</B></FONT><br>
<%
'Descripción
'Devuelve el nombre de recurso de red compartido para una unidad especificada.
'Sintaxis
'objeto.ShareName
'objeto siempre es un objeto Drive.
'Comentarios
'Si objeto no es una unidad de red, la propiedad ShareName devuelve una cadena
'de longitud cero ("").
'El siguiente código muestra el uso de la propiedad ShareName:
'original
'Function MostrarInformacionDeUnidad(unidadruta)
'Dim fso, d
'Set fso = CreateObject("Scripting.FileSystemObject" ;)
'Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathN ame(unidadruta)))
'MostrarInformacionDeUnidad = "Unidad " & d.DriveLetter & ": - " & d.ShareName
'End Function
%>
<%
sub MostrarInformacionDeUnidad(unidadruta)
Dim fso, d
Set fso = CreateObject("Scripting.FileSystemObject" ;)
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathN ame(unidadruta)))
'MostrarInformacionDeUnidad = "Unidad " & d.DriveLetter & ": - " & d.ShareName
response.write "Se encontro : <BR>"
response.write "Unidad :" & d.DriveLetter & ": - " & d.ShareName
End sub
MostrarInformacionDeUnidad ("C:")
%>
<br><center><a href='javascript:window.close()'>Cerrar Ventana</a></center><BR>
<center><HR><font size='1' face='verdana' color='red'><b>CRIMAKETEMPLATE HOSTING</b></font></center><BR>
<center><font size='1' face='verdana' color='red'><i><b>Versión.1.0</b></i></font></center><BR>
</BODY>
</HTML>
|