none
carpeta "N" esta en uso RRS feed

  • Pregunta

  • buen dia 

    tengo un pequeño problema estoy manejando copiar imágenes de una carpeta A a una carpeta B 

    y el problema es que cuando cambian varias veces la misma imagen me sale un mensaje que la carpeta B se encuentra en uso, me podrían ayudar en como cerrar la carpeta

    dejo ejemplo del codigo para que lo chequen gracias

    '///////////////////////////////////////////////////////////////////////////////////////////

        '----- BOTON EXAMINAR IMAGEN Y GARDARLA EN UNA CARPTA EXTERIOR
        '------GUARDAR EL NOMBRE DEL CONTRIBUYENTE Y LA RUTA DE LA FOTO
            Dim Fichero As String
            Dim dlAbrir As New System.Windows.Forms.OpenFileDialog
            Dim ruta2 As String

            Dim adapter As New OleDb.OleDbDataAdapter
            Dim datas As New DataSet

            Dim apellido1 As String = TextBox1.Text
            Dim apellido2 As String = TextBox2.Text
            Dim nombre As String = TextBox3.Text
            TextBox5.Text = apellido1 & " " & apellido2 & " " & nombre

            Dim ruta As String
            ruta = "\\x.x.x.x\DIGITAL_LICENCIAS\FOTOS\" 'EN EL SERVER
            Dim nombre_completo As String = TextBox5.Text   '.Replace(" ", "_")

            Dim extencion As String
            extencion = ".jpg"
            Dim completo As String

            completo = ruta & nombre_completo & extencion
            ''//busco en la base de datos si se encuentra el contribuyente


            Try
                Dim sql_conexion As New SqlClient.SqlConnection
                sql_conexion.ConnectionString = "Data Source=x.x.x.x;Database=DB_LICENCIAS_DIGITAL;Network Library=dbmssocn; User Id=digitalizacion; Password=digitalizacion"
                sql_conexion.Open()

                ''////CONSULTA EL REGISTRO AVER SI SE ENCUENTRA
                Dim consulta_sql As String = "SELECT * FROM CONTRIBUYENTE WHERE nombre = '" & TextBox5.Text & "' "
                Dim sql_consulta As New SqlClient.SqlCommand(consulta_sql, sql_conexion)
                Dim sql_adap As New SqlClient.SqlDataAdapter(sql_consulta)
                Dim sql_dset As New DataSet
                sql_dset.Tables.Add("Registros")
                sql_adap.Fill(sql_dset.Tables("Registros"))
                DataGridView1.DataSource = sql_dset.Tables("Registros")
                DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
                sql_conexion.Close()

                If TextBox1.Text = "" Then
                    MsgBox("EL CAMPO PRIMER APELLIDO BEDE TENER INFORMACION")
                ElseIf TextBox3.Text = "" Then
                    MsgBox("EL CAMPO NOMBRES DEBE TENER POR LO MENOS UN NOMBRE")

                Else

                    If (sql_dset.Tables(0).Rows.Count = 0) Then
                        OpenFileDialog1.Title = "SELECCIONA UN ARCHIVO FOTOGRAFICO"
                        OpenFileDialog1.FileName = TextBox5.Text ''''''MUESTRA EN EL BUSCADOR EL NOMBRE DEL CHOFER PARA LA FOTO

                        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                            System.IO.File.Copy(OpenFileDialog1.FileName, ruta & nombre_completo & extencion)

                            If System.IO.File.Exists(OpenFileDialog1.FileName) Then
                                PictureBox2.Image = Image.FromFile(OpenFileDialog1.FileName)
                                Me.TextBox11.Text = OpenFileDialog1.FileName
                                Me.TextBox12.Text = completo




                                'GUARDAR CONTRIBUYENTE EN LA TABLA CONTRIBUYENTE
                                guardar_contribuyente()
                                TextBox4.Focus()
                                TextBox4.Enabled = True
                                fecha.Enabled = True
                                TextBox15.Enabled = True
                            Else
                                MsgBox("NO SE QUE PASA..☻☺☻ ")
                            End If
                        Else
                            MsgBox("NO SELECCIONASTE NADA")
                            TextBox1.Text = ""
                            TextBox2.Text = ""
                            TextBox3.Text = ""
                            TextBox1.BackColor = Color.White
                            TextBox1.BackColor = Color.White
                            TextBox2.BackColor = Color.White
                            TextBox3.BackColor = Color.White
                            TextBox1.Focus()
                        End If

                    Else

                        ' DE LO CONTRARIO MUESTRA EN LAS CAJAS DE TEXO LO DEL DATASET
                        TextBox6.Text = sql_dset.Tables(0).Rows(0)("id_nombre").ToString()
                        TextBox14.Text = sql_dset.Tables(0).Rows(0)("ruta_foto").ToString()

                        Dim resp3 As String = MsgBox("CONTRIBUYENTE ENCONTRADO REMPLAZAR FOTO ACTUAL", MsgBoxStyle.OkCancel, "*** DIGITALIZACIÓN ***")

                        If resp3 = vbOK Then

                            dlAbrir.Filter = "Archivos de imagen(*.jpg)|*.jpg|" & "Archivos de imagen (*.gif)|*.gif|" & "Todos los archivos (*.*)|*.*"
                            ruta2 = "C:"
                            dlAbrir.InitialDirectory = "C:"  'ruta    ' Aquí se puede indicar la carpeta que contiene las fotos para que muestre los archivos de esa carpeta
                            dlAbrir.Multiselect = False
                            dlAbrir.CheckFileExists = False
                            dlAbrir.Title = "Selección de fichero que contiene la foto"
                            dlAbrir.ShowDialog()

                            If dlAbrir.FileName <> "" Then
                                ' Dispose() 'este k ace
                                Fichero = dlAbrir.FileName
                                Me.TextBox11.Text = Fichero
                                Refresh()
                                My.Computer.FileSystem.CopyFile(Fichero, TextBox14.Text, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)



                                TextBox12.Text = (Fichero)
                                PictureBox2.Image = Image.FromFile(TextBox14.Text)
                                TextBox4.Focus()
                                btnescanear.Enabled = True
                                btnguardar.Enabled = True
                                Button8.Enabled = True
                                Button7.Enabled = True
                                TextBox4.Enabled = True
                                fecha.Enabled = True
                                TextBox15.Enabled = True
                            End If

                        Else
                            PictureBox2.Image = Image.FromFile(TextBox14.Text)
                            TextBox12.Text = (TextBox14.Text) '
                            MsgBox("CAPTURA EL **NUEVO** NUMERO DE LICENCIA")
                            TextBox4.Enabled = True
                            TextBox4.Focus()
                            fecha.Enabled = True
                            TextBox15.Enabled = True
                            btnescanear.Enabled = True
                            btnguardar.Enabled = True
                            Button8.Enabled = True
                            Button7.Enabled = True

                        End If

                    End If

                End If

            Catch ex As Exception
                MsgBox(Err.Description)
            End Try

        End Sub

           
    viernes, 25 de mayo de 2018 17:29

Todas las respuestas

  • Hola ,

    En realcion a tu consulta, ¿Pudiste resolverlo? ¿Encontraste una solucion?

    Quedo al pendiente de tus comentarios.

    Saludos cordiales

    Gracias por usar los foros de TechNet.

    _____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. 

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    martes, 29 de mayo de 2018 18:41
    Moderador