none
Como Puedo GUARDAR un archivo PDF directamente a un disco Compartido como de D: a Z: ?? RRS feed

  • Pregunta

  • Buenos Días Expertos:

    Quisiera pedirles su ayuda este problema que se me ah ocurrido, Yo quiero grabar un Archivo Pdf en un compartimiento llamado "Z", primeramente yo lo busco  en mi disco "D" este archivo pdf y en un caja de texto me queda asi: D:/foto001.pdf , ahora al momento de guardar en el boton guardar al hacerle click se abre una ventana para enviarlo a donde yo requiera pero esto no requiero:

     Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
            Dim MyDlg As New SaveFileDialog
            With MyDlg
                .Filter = "Archivo PDF|*.pdf"
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    FileCopy(txtPDF.Text, .FileName)
                    txtPDF.Text = .FileName
                End If
            End With
     End Sub

    este es el codigo que me sale pero yo no quiero que me habra una ventana,.... YO QUISERA QUE AL MOMENTO DE HACERLE CLIC AL BOTOON GUARDAR ESTE YA ME SALGA CON UN NOMBRE DE LA DESCRIPCION DEL PRODUCTO Y QUE SE ESTA GUARDANDO EN LA RUTA "Z" POR EJEMPLO AL HACERLE CLIC EN GUARDAR ME SALGA EN LA CAJA DE TEXTO:  Z:/MARIOGR.PDF.

    De antemano le agradesco por su atencion prestada y su ayuda.

    Gracias.

    martes, 17 de abril de 2018 14:42

Respuestas

  • "mario gr" preguntó:

    > Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
    >     Dim MyDlg As New SaveFileDialog
    >     With MyDlg
    >         .Filter = "Archivo PDF|*.pdf"
    >         If .ShowDialog = Windows.Forms.DialogResult.OK Then
    >             FileCopy(txtPDF.Text, .FileName)
    >             txtPDF.Text = .FileName
    >         End If
    >     End With
    >  End Sub
    >
    > este es el codigo que me sale pero yo no quiero que me habra una ventana,.... YO QUISERA
    > QUE AL MOMENTO DE HACERLE CLIC AL BOTOON GUARDAR ESTE YA ME SALGA CON UN NOMBRE DE LA
    > DESCRIPCION DEL PRODUCTO Y QUE SE ESTA GUARDANDO EN LA RUTA "Z" POR EJEMPLO AL HACERLE
    > CLIC EN GUARDAR ME SALGA EN LA CAJA DE TEXTO:  Z:/MARIOGR.PDF.

    Hola, Mario:

    ¿Te refieres a que en la caja de texto "Nombre" del cuadro de diálogo "Guardar como" te aparezca la ruta "Z:\MARIOGR.PDF", tal y como muestra la siguiente imagen de la parte inferior de dicho cuadro de diálogo?

    Si es así, tan solo tienes que indicar un valor adecuado a las propiedades InitialDirectory y FileName del objeto SaveFileDialog. Y en cuanto a la "descripción del producto", como mucho podrás modificar el título del cuadro de dialogo mediante su propiedad Title.

    Mira a ver si el siguiente ejemplo cumple con lo que demandas en tu mensaje:

        Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
    
            Try
                Dim MyDlg As New SaveFileDialog()
                With MyDlg
                    .Filter = "Archivo PDF|*.pdf"
                    .Title = "Guardando archivo MARIOGR.PDF"
                    .InitialDirectory = "Z:\"
                    .FileName = "Z:\MARIOGR.PDF"
                    If (.ShowDialog = DialogResult.OK) Then
                        FileCopy(txtPDF.Text, .FileName)
                        txtPDF.Text = .FileName
                    End If
                End With
    
            Catch ex As Exception
                ' Se ha producido un error.
                MessageBox.Show(ex.Message)
    
            End Try
    
        End Sub

    En negrita las modificaciones que tienes que realizar.

    Un saludo


    Enrique Martínez Montejo
    [MS MVP - Visual Studio y Tecnologías de Desarrollo]

    Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

    Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

    Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción
    Option Strict.


    domingo, 22 de abril de 2018 6:29
    Moderador

Todas las respuestas

  • "mario gr" preguntó:

    > Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
    >     Dim MyDlg As New SaveFileDialog
    >     With MyDlg
    >         .Filter = "Archivo PDF|*.pdf"
    >         If .ShowDialog = Windows.Forms.DialogResult.OK Then
    >             FileCopy(txtPDF.Text, .FileName)
    >             txtPDF.Text = .FileName
    >         End If
    >     End With
    >  End Sub
    >
    > este es el codigo que me sale pero yo no quiero que me habra una ventana,.... YO QUISERA
    > QUE AL MOMENTO DE HACERLE CLIC AL BOTOON GUARDAR ESTE YA ME SALGA CON UN NOMBRE DE LA
    > DESCRIPCION DEL PRODUCTO Y QUE SE ESTA GUARDANDO EN LA RUTA "Z" POR EJEMPLO AL HACERLE
    > CLIC EN GUARDAR ME SALGA EN LA CAJA DE TEXTO:  Z:/MARIOGR.PDF.

    Hola, Mario:

    ¿Te refieres a que en la caja de texto "Nombre" del cuadro de diálogo "Guardar como" te aparezca la ruta "Z:\MARIOGR.PDF", tal y como muestra la siguiente imagen de la parte inferior de dicho cuadro de diálogo?

    Si es así, tan solo tienes que indicar un valor adecuado a las propiedades InitialDirectory y FileName del objeto SaveFileDialog. Y en cuanto a la "descripción del producto", como mucho podrás modificar el título del cuadro de dialogo mediante su propiedad Title.

    Mira a ver si el siguiente ejemplo cumple con lo que demandas en tu mensaje:

        Private Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click
    
            Try
                Dim MyDlg As New SaveFileDialog()
                With MyDlg
                    .Filter = "Archivo PDF|*.pdf"
                    .Title = "Guardando archivo MARIOGR.PDF"
                    .InitialDirectory = "Z:\"
                    .FileName = "Z:\MARIOGR.PDF"
                    If (.ShowDialog = DialogResult.OK) Then
                        FileCopy(txtPDF.Text, .FileName)
                        txtPDF.Text = .FileName
                    End If
                End With
    
            Catch ex As Exception
                ' Se ha producido un error.
                MessageBox.Show(ex.Message)
    
            End Try
    
        End Sub

    En negrita las modificaciones que tienes que realizar.

    Un saludo


    Enrique Martínez Montejo
    [MS MVP - Visual Studio y Tecnologías de Desarrollo]

    Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

    Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

    Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción
    Option Strict.


    domingo, 22 de abril de 2018 6:29
    Moderador
  • Buen dia Enrique,...  Gracias por tu gran ayuda.... 
    martes, 24 de abril de 2018 17:10