Hola, alguna cosa no encaja, me salen bastantes fallos.
Esto es lo que tengo en este form.
Imports System.Runtime.InteropServices
Imports System
Imports System.IO
Public Class Form2
'-------------------NECESARIO PARA VIGILAR LOS ARCHIVOSDE UNA CARPETA
Public WithEvents fswc As FileSystemWatcher
'------------------- MOVER EL FORMULARIO
<DllImport("user32.DLL", EntryPoint:="ReleaseCapture")>
Private Shared Sub ReleaseCapture()
End Sub
<DllImport("user32.DLL", EntryPoint:="SendMessage")>
Private Shared Sub SendMessage(ByVal hWnd As System.IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close() 'orden para cerrar'
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.WindowState = FormWindowState.Minimized 'orden para minimizar'
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim directory2 = "C:\Users\mortigor\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\mortigor\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 Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
ReleaseCapture()
SendMessage(Me.Handle, &H112&, &HF012&, 0)
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
Private Sub fswc_Changed(sender As Object, e As FileSystemEventArgs) Handles fswc.Changed
ListBox1.Items.Clear()
Dim directory = "C:\Users\mortigor\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 fswc_Created(sender As Object, e As FileSystemEventArgs) Handles fswc.Created
ListBox1.Items.Clear()
Dim directory = "C:\Users\mortigor\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 fswc_Deleted(sender As Object, e As FileSystemEventArgs) Handles fswc.Deleted
ListBox1.Items.Clear()
Dim directory = "C:\Users\mortigor\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 fswc_Disposed(sender As Object, e As EventArgs) Handles fswc.Disposed
ListBox1.Items.Clear()
End Sub
Private Sub fswc_Error(sender As Object, e As ErrorEventArgs) Handles fswc.[Error]
ListBox1.Items.Clear()
End Sub
Private Sub fswc_Renamed(sender As Object, e As RenamedEventArgs) Handles fswc.Renamed
ListBox1.Items.Clear()
Dim directory = "C:\Users\mortigor\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 ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End Sub
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
Esto es lo que tengo por ahora, me lee el archivo el listbox, tengo un watcher para que me lo actualice cada vez que hay algún cambio.
Tengo 2 listbox, button, listbox.
No se como encajarlo..
Autor
En línea
