Acceder a ficheros remotos
Publicado por Mario (4 intervenciones) el 13/04/2014 16:12:34
Hola buenas, soy nuevo en el foro, antes de nada saludaros a todos...
Estoy haciendo un programa que graba y lee archivos de texto desde un PC a otro PC conectados en red.
Hice una funcion que se le pasa como parámetro la ruta y el nombre del fichero y devulve una cadena con el contenido del fichero de texto.
la funcion trabaja correctamente en local pero cuando le pongo la ruta del otro equipo (IP) ya no encuentra el fichero
La llamada la hago de la siguiente forma:
Dim contenido as string = LeerFicheroTexto("\\IP_remoto\C:\fichero.txt")
Donde IP_remoto es la IP del equipo remoto...
LA PREGUNTA ES: Como sería la forma correcta de leer, grabar, borrar ficheros de texto en otro PC?
Esta es la función.
Espero que podáis ayudarme, gracias!
Estoy haciendo un programa que graba y lee archivos de texto desde un PC a otro PC conectados en red.
Hice una funcion que se le pasa como parámetro la ruta y el nombre del fichero y devulve una cadena con el contenido del fichero de texto.
la funcion trabaja correctamente en local pero cuando le pongo la ruta del otro equipo (IP) ya no encuentra el fichero
La llamada la hago de la siguiente forma:
Dim contenido as string = LeerFicheroTexto("\\IP_remoto\C:\fichero.txt")
Donde IP_remoto es la IP del equipo remoto...
LA PREGUNTA ES: Como sería la forma correcta de leer, grabar, borrar ficheros de texto en otro PC?
Esta es la función.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function LeerFicheroTexto(NombFich As String) As String
'Devuelve el contenido (texto) de un fichero dado en "NombFich"
Dim cadena As String
If File.Exists(NombFich) Then
Dim sr As New System.IO.StreamReader(NombFich)
cadena = sr.ReadToEnd() 'Devuelve el contenido del fichero (texto)
sr.Close()
sr.Dispose()
Return cadena
Else
Return "Fichero " & NombFich & " no encontrado."
End If
End Function
Espero que podáis ayudarme, gracias!
Valora esta pregunta
0