For Each Drive In My.Computer.FileSystem.Drives
     If Drive.DriveType = IO.DriveType.Removable Or Drive.DriveType = IO.DriveType.Fixed Then