I wrote this code, but it don't work:

Code:
Dim i As Integer = 0
Dim drives() As String
drives = GetListofDrives()
or Each sdrives In drives
i += 1
Next
Dim a(i) As FileSystemWatcher
i = 0
For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
Dim itemText As String = drive.Name
Dim ltr As String = drive.Name
Dim Type As String
If drive.IsReady AndAlso drive.VolumeLabel
...