Visual Basic - Problema al copiar pdf de una direccion a otra

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Felipe

Problema al copiar pdf de una direccion a otra

Publicado por Felipe (5 intervenciones) el 29/10/2014 22:26:37
Hola, escribo porque tengo un problema que ya lleva varias horas quitan dome las neuronas. Sucede que estoy desarrollando una aplicacion que utilizara como base de datos una carpeta compartida sin usuario ni clave en un servidor-pc.

El punto es que necesito que por ejemplo un archivo pdf que esta en el escritorio, mediante un botón abra saveFileDialog1.ShowDialog() permit al usuario marcar el archivo que desea copiar y que después lo guarde en una dirección ya determinada.


lo eh intentado de muchas formas y no puedo, lo ultimo que estoy intentando es con este codigo que hize y me arroja que NO TENGO PERMISOS DE ACCESO A LA CARPETA DE DESTINO, ya revise y la tengo compartida con todos para que puedan leer y escribir en ella, entre desde otro pc de la red y cree varios archivos sin ni un problema. Estuve investigando y creo que esto se produce porque el sistema operativo bloquea el acceso, actualmente las maquinas con las que trabajo usan windows 7.... les dejo el código y quedo atento a sus respuestas, gracias.



Public Class Form5
Dim saveFileDialog1 As New SaveFileDialog()
Dim openfiledialog1 As New OpenFileDialog
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click




'Guardamos el path al archivo origen

Dim destino As String = "\\192.168.0.181\Users\Usuario\Desktop\nueva carpeta" 'Solo queremos la ruta de destino

Dim origen As String
saveFileDialog1.Filter = "|*.pdf"
saveFileDialog1.Title = "Archivo"
saveFileDialog1.ShowDialog()
origen = Me.saveFileDialog1.FileName
'Comprobamos que el archivo de origen (el que queremos copiar) existe
saveFileDialog1.ShowDialog()
File.Copy(origen, destino, True)
If (File.Exists(origen)) Then


'Ahora podemos copiar el archivo origen al destino
File.Copy(destino, True) AQUI ME MARCA LA EXCEPCION Y ME DICE QUE NO PUEDE ACCEDER.

If (Not File.Exists(origen)) Then
'En caso de que el archivo copiado no exista, lanzamos una excepción.
Throw New NullReferenceException("El archivo no se ha podido copiar")

End If

End If

End Sub
end class




imagen
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de andres guerrero

Problema al copiar pdf de una direccion a otra

Publicado por andres guerrero (702 intervenciones) el 30/10/2014 01:15:38
Intenta que la copia no sea a una carpeta USERS\ crea la carpeta en el C:\ tanto origen y destino

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Felipe

Problema al copiar pdf de una direccion a otra

Publicado por Felipe (5 intervenciones) el 30/10/2014 01:20:03
Mañana mismo lo intentare, muchas gracias y te comento como resulta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Felipe

Problema al copiar pdf de una direccion a otra

Publicado por Felipe (5 intervenciones) el 30/10/2014 13:21:09
Acabo de probar colocando las direccion en la carpeta raiz del disco C y lo mismo, me sigue denegando el acceso, las carpetas tienen todos los permisos de lectura y escritura.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Felipe

Problema al copiar pdf de una direccion a otra

Publicado por Felipe (5 intervenciones) el 30/10/2014 16:46:00
Chicos solucione mi problema, dándome unas cuantas vueltas pensando cree un codigo y con algunas modificaciones funciono. Lo dejare aqui por si alguien tiene el problema en el futuro encuentre aqui la solucion.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim saveFileDialog1 As New SaveFileDialog()
    Dim openfiledialog1 As New OpenFileDialog
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
        Dim origen As String
        openFileDialog1.Filter = "|*.pdf"
        openFileDialog1.Title = "Archivo"
        openFileDialog1.ShowDialog()
        origen = Me.saveFileDialog1.FileName
 
 
        My.Computer.FileSystem.CopyFile(origen,
    "\\192.168.0.92\carpeta\" & TextBox2.Text & ".pdf",
    Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
    Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
 
'Le doy la ruta del servidor apuntando a la carpeta compartida y adjunto un textbox para que el usuario pueda renombrar 'el archivo pdf antes de guardarlo en la nueva ubicación.
 
 
    End Sub






TEMA CERRADO, MUCHAS GRACIAS A QUIENES LEYERON Y COMENTARON.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar