2016
NINGÚN APORTE.
NINGÚN APORTE.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: **Aincrad** en 4 Julio 2018, 18:06 PM
lo veré y después revisare todo el post del snippets desde la gaina 1 a la 54 , para no volver preguntar cosas que ya prácticamente estan resultas :V .
Imports System.Collections.ObjectModel
Imports System.Collections.Specialized
Dim directory2 = "C:\Users\Alfredo\Desktop\iconos2"
Dim files2() As System.IO.FileInfo
Dim dirinfo2 As New System.IO.DirectoryInfo(directory2)
files2 = dirinfo2.GetFiles("*.mp4", IO.SearchOption.AllDirectories) ' DECIRLE QUE EXTENSION DE ARCHIVO
For Each file In files2
ListBox2.Items.Add(file)
Next
''''''''''''''''' NECESARIO PARA VIGILAR LOS ARCHIVOSDE UNA CARPETA
Me.CheckForIllegalCrossThreadCalls = False
fswc = New FileSystemWatcher("C:\Users\Alfredo\Desktop\iconos")
fswc.IncludeSubdirectories = False
fswc.EnableRaisingEvents = True
'---------------------------------------
'muestra contenido carpeta'
Dim directory = "C:\Users\Alfredo\Desktop\iconos"
Dim files() As System.IO.FileInfo
Dim dirinfo As New System.IO.DirectoryInfo(directory)
files = dirinfo.GetFiles("*.mp4", IO.SearchOption.AllDirectories) ' DECIRLE QUE EXTENSION DE ARCHIVO
For Each file In files
ListBox1.Items.Add(file)
Next
End Sub
Private Sub NOMBRE_DEL_METODO()
...
Me.CheckForIllegalCrossThreadCalls = false
Control.CheckForIllegalCrossThreadCalls = false
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
End Sub
Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
End Sub
Private Sub BackgroundWorker1_DoWork(sender As Object, e As ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
End Sub
CitarTe lo pongo en varios que no me coje mas de 100 lineas creo.
Cita de: mortygor en 4 Julio 2018, 15:57 PMme salen bastantes fallos.