Mensajes

Saludos busco como mover multiples archivos  y pasarlos a otra ruta no busco mover la carpeta raíz solo todos los archivos que contenga.

Yo pensé que algo así podría pero no es la respuesta ya que tengo que especificar un archivo



My.Computer.FileSystem.MoveFile(LabelORIGEN.Text & "\*.*", LabelDESTINO.Text)

Saludos tengo una ruta por guardar en una base de datos soy nuevo en sql no tengo idea en que tipo de dato catalogarla, hice un ejemplo con guardar rutas grandes y pequeñas ejemplo:

C:\carpetas\datos\obtencion de datos para guardar\listado de datos\datos completo\listado de clientes\este es listado de datos para guardar en la base de dato.txt

C:\carpetas\datos\obtencion de datos para guardar listas.txt

la modifique en (editar esquema de tabla) en vb.net le cambie el valor por nvarchar en longitud le he modificado hasta 4000 pero aparece en el listado de DataGridView algunos datos con MaxLength las rutas grandes en texto, alguien me puede aconsejar un valor para este tipo de rutas

Gracias por la molestia la verdad no se mucho y menos de sql, este codigo lo aprendi de youtube, vi que el error es por recolectar rutas que superan el MaxLegth le he cambiado y algunas me carga en el DataGridView con signo de rojo por superar el limite, pero si logra llegar al fin de recolección.

es asi como me marca
https://drive.google.com/open?id=115_2doDcsiaNTlyjSp3idZBwzwNBHXpS

Si solo quiero guardar las direcciones de archivos que el boton Button1 busca, de ahi el timer es de guardar las direcciones que encontró el buscador y enlisto el label 7 es como el ID y el label 1 la ruta ejemplo D:\carpeta\archivo.txt los demas label son label que lleno con otro contenido, todo va bien y se ejecuta bien pero llega el momento que se detiene la depuración.

Buen dia estoy desarrollando un ejercicio el cual es de buscar extensiones y agregarlas a un ListBox, de ahí programo un timer para que seleccione dato por dato de la lista y la agregue a una base de datos, tengo el problema que agregar unos cuantos y en cierto momento se detiene la depuración marcando error en la linea para agregar datos a la base de datos, les dejo mi ejercicio espero me puedan ayudar.

Código (vbnet) [Seleccionar] Expandir

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ExtensionBuscada As String = "*.txt"
        Dim dirInfo As New DirectoryInfo(TextBox1.Text)
        Dim dirsInfo() As DirectoryInfo = dirInfo.GetDirectories("*.*", SearchOption.TopDirectoryOnly)

        For Each di As DirectoryInfo In dirsInfo
            Try
                Dim filesInfo() As FileInfo = di.GetFiles(ExtensionBuscada, SearchOption.AllDirectories)
                For Each fichero As FileInfo In filesInfo
                    ListBox1.Items.Add(fichero.FullName)
                    Label6.Text = ListBox1.Items.Count
                Next

            Catch ex As UnauthorizedAccessException
                ' Controlo el error de acceso no autorizado a carpeta

            End Try
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.ListBox1.SelectedIndex = 0
        Button2_Click(sender, e)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If ListBox1.Items.Count > 0 Then
            Label6.Text = ListBox1.Items.Count
            Me.ListBox1.SelectedIndex = 0
            Label1.Text = ListBox1.SelectedItem.ToString

            Label7.Text = Val(Label7.Text) + Val("1")
            Me.DATOSTableAdapter.Insert(Label7.Text, Label1.Text, Label3.Text, Label4.Text, Label5.Text) 'INSERTAR NUEVO DATOS

            ListBox1.Items.Remove(ListBox1.SelectedItem)



        Else
            Label6.Text = ListBox1.Items.Count
            Me.DATOSTableAdapter.Fill(Me.CAPTURADataSet.DATOS)
            Timer1.Stop()

        End If

    Private Sub DATOSBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATOSBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.DATOSBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.CAPTURADataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'CAPTURADataSet.DATOS' Puede moverla o quitarla según sea necesario.
        Me.DATOSTableAdapter.Fill(Me.CAPTURADataSet.DATOS)

    End Sub


End Class




Si funciona, agrega bien pero en cierto tiempo de que agrego algunos detiene la depuración marca error en la linea de agregar a la bd.

Código (vbnet) [Seleccionar] Expandir

Me.DATOSTableAdapter.Insert(Label7.Text, Label1.Text, Label3.Text, Label4.Text, Label5.Text) 'INSERTAR NUEVO DATOS

Saludos tengo un proyecto el cual es hacer que se ejecute su pantalla completa, y se desactive el fullScreen con cualquier presion de tecla, si llego a activar la pantalla completa, pero al momento de desactivar la pantalla completa si funciona con algunas teclas, menos con los f1-f2 mas los siguiente y las fechas de direccion, cuando presiono las fechas de direccion deshabilita las teclas que si sirven  he ahi cuando pierdo el control del programa, alguien me puede ayudar para desactivar el fullScreen con todas las teclas del teclado y no me creé esos errores.

   

Código (vbnet) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxWindowsMediaPlayer1.URL = Label1.Text
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F5 Then
            Me.AxWindowsMediaPlayer1.fullScreen = True
        End If
    End Sub


    Private Sub AxWindowsMediaPlayer1_KeyDownEvent(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_KeyDownEvent) Handles AxWindowsMediaPlayer1.KeyDownEvent
        Me.AxWindowsMediaPlayer1.fullScreen = False
    End Sub