Como usar FileSystemWatcher

[z3nth10n]

Hola, como no estoy seguro si se puede hacer mas de una duda en el mismo post (que creo que no se puede) xD Soy un fuera de la ley

En fin, Elektro ya sabe lo que quiero hacer, yo lo recuerdo, quiero hacer algo así:


(Ni caso por lo del TreeView)

El caso que yo antes usaba FileListBox en VB6, el caso que las cosas han cambiado un "poquitin de nada" y ese Campo se ha tranformado en este otro que os vengo comentando en el titulo.

El caso es, como lo podria hacer?

Un saludo.

[_katze_]

http://msdn.microsoft.com/es-es/library/system.io.filesystemwatcher(v=vs.80).aspx

pero para lo que queres noc si sera..

[Eleкtro]

Fuf... Vale,

Creo que te has confundido bastante, y creo que el título del post no tiene nada que ver, el filesystemwatcher es para monitorizar los cambios de archivos en un directorio, si tu quieres visualizar los archivos de un directorio, usa por ejemplo un listbox para listarlos adentro...

EDITO: Pero vamos, que si quieres además monitorizar el directorio en tiempo real para ir actualizando la lista cada cierto tiempo si se elimina o se añade un archivo con el FileSystemWatcher... eso ya es otra historia xD

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Dim Listita As New ListBox

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Size = New Point(240, 240)

        Listita.Dock = DockStyle.Fill
        Listita.BackColor = Color.White
        Listita.ForeColor = Color.Black
        Listita.Font = New Font(Listita.Font.FontFamily, 12, Listita.Font.Style)
        Me.Controls.Add(Listita)

        Dim Files As Array = IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "*", IO.SearchOption.TopDirectoryOnly)

        For Each File In Files
            Dim File_Info As New IO.FileInfo(File)
            Listita.Items.Add(File_Info.Name)
        Next
    End Sub

End Class

[z3nth10n]

Trolololol, pero se muestran los archivos en el Form no en el listbox, he probado a ponerlo dentro de la misma caja pero sale en blanco xD

[Eleкtro]

Trolololol, pero se muestran los archivos en el Form no en el listbox

¿Que te has fumado Seazoux? 

Fíjate mejor en el código...

Código (vbnet) [Seleccionar] Expandir

Listita.Dock = DockStyle.Fill ' Esto hace que el form se rellene con el listbox...

Saludos

[z3nth10n]

¿Que te has fumado Seazoux?

Fíjate mejor en el código...

Código (vbnet) [Seleccionar] Expandir

Listita.Dock = DockStyle.Fill ' Esto hace que el form se rellene con el listbox...

Saludos

Me tomado las anfetaminas de no leer xD Ahora te cuento xDDDD



Configurado, y como puedo poner en un label, Roms encontrados (x) ??

[Eleкtro]

Configurado, y como puedo poner en un label, Roms encontrados (x) ??

Muy sencillo, contando la longitud de este array:

Código (vbnet) [Seleccionar] Expandir

Dim Files As Array = IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "*", IO.SearchOption.TopDirectoryOnly)

Código (VBNET) [Seleccionar] Expandir

Dim TotalRoms as int32 = "longitud del array" ' Eso no te lo voy a dar hecho, en Google sale, si no sabes búscalo, es sencillísimo xD
Label1.text = "Roms encontrados (" & TotalRoms & ")"

[z3nth10n]

Muy sencillo, contando la longitud de este array:

Código (VBNET) [Seleccionar] Expandir

Dim TotalRoms as int32 = "longitud del array" ' Eso no te lo voy a dar hecho, en Google sale, si no sabes búscalo, es sencillísimo xD
Label1.text = TotalRoms

sera facil para ti que tienes tropecientos titulos, pero yo que no he manejado nunca vb, esto me suena a chino lol

[Eleкtro]

yo que no he manejado nunca vb, esto me suena a chino lol

Pero se trata de aprender, yo lo que véo dificil para tu nivel te lo doy hecho, pero es que las cosas así de fáciles como lo de la longitúd....

anda toma:

Código (vbnet) [Seleccionar] Expandir

   Dim TotalRoms as int32 = Files.Length
   Label1.text = "Roms encontrados (" & TotalRoms & ")"

[z3nth10n]

Pero se trata de aprender, yo lo que véo dificil para tu nivel te lo doy hecho, pero es que las cosas así de fáciles como lo de la longitúd....

anda toma:

Código (vbnet) [Seleccionar] Expandir

   Dim TotalRoms as int32 = Files.Length
   Label1.text = "Roms encontrados (" & TotalRoms & ")"

No te creas soy muy dificil, ademas, si alho no he visto en mi vida no se como seguirlo

Tambien, dime como saco la variable de la ruta del archivo seleccionado, yo voy a intentar aplicarlo a lo que yo quiero.



EDITO:
Error:

Código [Seleccionar] Expandir

   Dim Files As Array = IO.Directory.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.Windows), "*", IO.SearchOption.TopDirectoryOnly)


Error   1   'Windows' no es un miembro de 'System.Environment.SpecialFolder'.   C:\Users\Alvaro\Documents\VisualBasic NET\Projectos\WebKitEmulator\WindowsApplication1\WindowsApplication1\Form2.vb   4   74   WindowsApplication1


LOL?