FSO para archivos en red.

xtranio · #1 (**permalink**) 06/05/2002, 14:00

necesito verificar si un archivo exite en en otra maquina desde mi maquina, uso como ruta lo siguiente:

Código:

 \\equipo01\archivo.pdf

, pero el fso me dice que no lo encuentra.
¿es que acaso el fso, sólo puede ubicar archivos en la misma maquina? ¿de que manera puedo verificar la existencia de otro archivo desde mi maquina?

la funcion que uso es la siguiente:

Código:

 
&lt;%= EstadoDeArchivo(&quot;\\equipo01\archivo.pdf&quot;) ' no sale%&gt;
&lt;%
&lt;%= EstadoDeArchivo(&quot;c:\archivo.pdf&quot;) 'si sale%&gt;


Function EstadoDeArchivo(especificaciondearchivo)
  Dim fso, mensaje
  Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
  If (fso.FileExists(especificaciondearchivo)) Then
    mensaje = especificaciondearchivo &amp; &quot; existe.&quot;
  Else
    mensaje = especificaciondearchivo &amp; &quot; no existe.&quot;
  End If
  EstadoDeArchivo = mensaje
End Function
%&gt;

DARIOI · #2 (**permalink**) 06/05/2002, 16:55

hola prueba este:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgcolor='#ffcc00'>
Propiedad ShareName 
<%
'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&quot ;)
'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&quot ;)
Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathN ame(unidadruta)))
'MostrarInformacionDeUnidad = "Unidad " & d.DriveLetter & ": - " & d.ShareName

response.write "Se encontro : "
response.write "Unidad :" & d.DriveLetter & ": - " & d.ShareName
End sub
MostrarInformacionDeUnidad ("C:")
%>
 <center><a href='javascript:window.close()'>Cerrar Ventana</a></center> 
<center><HR>CRIMAKETEMPLATE HOSTING</center> 
<center>Versión.1.0</center> 
</BODY>
</HTML>

DARIOI · #3 (**permalink**) 06/05/2002, 17:04

prueba esta otra:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgcolor='#ffcc00'>
Propiedad DriveType
<%
'Descripción
'Devuelve un valor que indica el tipo de una unidad especificada.
'Sintaxis
'objeto.DriveType
'objeto siempre es un objeto Drive.
'Comentarios
'El siguiente código muestra el uso de la propiedad DriveType:
'Function MostrarTipoDeUnidad(unidadruta)
'Dim fso, d, t
'Set fso = CreateObject("Scripting.FileSystemObject&quot ;)
'Set d = fso.GetDrive(unidadruta)
'Select Case d.DriveType
'Case 0: t = "Desconocida"
'Case 1: t = "Removible"
'Case 2: t = "Fija"
'Case 3: t = "Red"
'Case 4: t = "CD ROM"
'Case 5: t = "Disco RAM"
'End Select
'MostrarTipoDeUnidad = "Unidad " & d.DriveLetter & ": - " & t
'End Function
%>

<%
'01
Sub MostrarTipoDeUnidad(unidadruta)
Dim fso, d, t
Set fso = CreateObject("Scripting.FileSystemObject&quot ;)
Set d = fso.GetDrive(unidadruta)
Select Case d.DriveType
Case 0: t = "Desconocida"
Case 1: t = "Removible"
Case 2: t = "Fija"
Case 3: t = "Red"
Case 4: t = "CD ROM"
Case 5: t = "Disco RAM"
End Select
'MostrarTipoDeUnidad = "Unidad " & d.DriveLetter & ": - " & t
response.write "Se encontro : "
response.write "" & t
End sub
MostrarTipoDeUnidad ("E:")

%>
 <center><a href='javascript:window.close()'>Cerrar Ventana</a></center> 
<center><HR>CRIMAKETEMPLATE HOSTING</center> 
<center>Versión.1.0</center> 
</BODY>
</HTML>

Ruchu · #4 (**permalink**) 18/06/2002, 06:26

a mi me pasa lo mismo que a xtranio, y voy a probar lo que has escrito darioi, pero digo yo, ¿podrias explicar porque no funciona el codigo de xtranio y si el tuyo?

recuerda que estamos aqui para aprender y resolver dudas, no para copiar y pegar y no saber ;)