Ejecutar código al inicio.

Prueba algo así:

Imports System.Management
Imports System.IO

Dim wmi As New ManagementObjectSearcher("select * from
Win32_LogicalDisk where DriveType = 3")
Dim unidad As ManagementObject
For Each unidad In wmi.Get()
Dim watcher As New FileSystemWatcher(unidad
("DeviceID").ToString() & "\")
AddHandler watcher.Created, AddressOf watcher_Created
' Lo mismo para Changed, Deleted, ...
watcher.EnableRaisingEvents = True
Next

Private Sub watcher_Created(sender As Object, e As
FileSystemEventArgs)
MsgBox("Creado: " & e.FullPath)
End Sub


No olvides añadir una referencia a System.Management.

¿No es mas facil usar Directory.GetLogicalDrives que complicarse con WMI?

For Each unidad As String In Directory.GetLogicalDrives()
Dim watcher As New FileSystemWatcher(unidad)
AddHandler watcher.Created, AddressOf watcher_Created
watcher.EnableRaisingEvents = True
Next

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Si, pero con GetLogicalDrives no se puede distinguir si
la unidad es un cd/rom, disquetera, unidad de red, etc...
Si no he entendido mal la pregunta, quiere examinar solo
las unidades de disco duro.

"pero tengo el problema que al no saber cuantos HD (o
particiones) puede haber en una maquina"

Desde luego, si he entendido mal, la solución más
sencilla y eficiente es GetLogicalDrives.

"pero tengo el problema que al no saber cuantos HD (o
particiones) puede haber en una maquina"

Se me habia pasado esa parte ;(

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Hola Tristan,
Gracias por el códgo me funcionó bien; pero hay algo que no entiendo:
Si las instancias de FileSystemWatcher estan definidas dentro de el bucle
For Each,
¿No tendrían que dejar de existir una vez que termina el bucle?


"Tristan" escribió en el mensaje
news:2310801c45e99$263c4db0$
Prueba algo así:

Imports System.Management
Imports System.IO

Dim wmi As New ManagementObjectSearcher("select * from
Win32_LogicalDisk where DriveType = 3")
Dim unidad As ManagementObject
For Each unidad In wmi.Get()
Dim watcher As New FileSystemWatcher(unidad
("DeviceID").ToString() & "\")
AddHandler watcher.Created, AddressOf watcher_Created
' Lo mismo para Changed, Deleted, ...
watcher.EnableRaisingEvents = True
Next

Private Sub watcher_Created(sender As Object, e As
FileSystemEventArgs)
MsgBox("Creado: " & e.FullPath)
End Sub


No olvides añadir una referencia a System.Management.