Autor
|
Tema: Como usar FileSystemWatcher (Leído 11,446 veces)
|
z3nth10n
Desconectado
Mensajes: 1.583
"Jack of all trades, master of none." - Zenthion
|
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.
|
|
|
En línea
|
⏩ Interesados hablad por Discord.
|
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.866
|
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 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) Dim File_Info As New IO. FileInfo(File) Listita.Items.Add(File_Info.Name) Next End Sub End Class
|
|
« Última modificación: 23 Enero 2013, 17:19 pm por EleKtro H@cker »
|
En línea
|
|
|
|
z3nth10n
Desconectado
Mensajes: 1.583
"Jack of all trades, master of none." - Zenthion
|
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
|
|
|
En línea
|
⏩ Interesados hablad por Discord.
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.866
|
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... Listita.Dock = DockStyle.Fill ' Esto hace que el form se rellene con el listbox...
Saludos
|
|
« Última modificación: 23 Enero 2013, 17:22 pm por EleKtro H@cker »
|
En línea
|
|
|
|
z3nth10n
Desconectado
Mensajes: 1.583
"Jack of all trades, master of none." - Zenthion
|
¿Que te has fumado Seazoux? Fíjate mejor en el código... 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) ??
|
|
« Última modificación: 23 Enero 2013, 17:28 pm por Seazoux »
|
En línea
|
⏩ Interesados hablad por Discord.
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.866
|
Configurado, y como puedo poner en un label, Roms encontrados (x) ??
Muy sencillo, contando la longitud de este array: Dim Files As Array = IO. Directory. GetFiles(Environment. GetFolderPath(Environment. SpecialFolder. Windows), "*", IO. SearchOption. TopDirectoryOnly)
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 & ")"
|
|
« Última modificación: 23 Enero 2013, 18:00 pm por EleKtro H@cker »
|
En línea
|
|
|
|
z3nth10n
Desconectado
Mensajes: 1.583
"Jack of all trades, master of none." - Zenthion
|
Muy sencillo, contando la longitud de este array: 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
|
|
|
En línea
|
⏩ Interesados hablad por Discord.
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.866
|
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: Dim TotalRoms as int32 = Files. Length Label1.text = "Roms encontrados (" & TotalRoms & ")"
|
|
|
En línea
|
|
|
|
z3nth10n
Desconectado
Mensajes: 1.583
"Jack of all trades, master of none." - Zenthion
|
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: 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: 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?
|
|
« Última modificación: 23 Enero 2013, 20:12 pm por Seazoux »
|
En línea
|
⏩ Interesados hablad por Discord.
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Quien me explica como usar o como funcionan los SocketS? (java)
Java
|
McKain
|
5
|
9,173
|
16 Noviembre 2005, 18:52 pm
por McKain
|
|
|
Como hago para usar un lg GW520 como modem
Dispositivos Móviles (PDA's, Smartphones, Tablets)
|
4rm4ndo
|
2
|
7,033
|
12 Enero 2011, 17:26 pm
por 4rm4ndo
|
|
|
saben como usar usar el windows live messenger 2009 en win 8
Mensajería
|
dannyphantom
|
1
|
3,282
|
25 Diciembre 2012, 22:07 pm
por Songoku
|
|
|
EVENTO DELETE FILESYSTEMWATCHER
Programación Visual Basic
|
el_mamer
|
2
|
1,801
|
30 Junio 2014, 06:22 am
por el_mamer
|
|