sub listadriv
  On Error Resume Next
  Dim d,dc,s
  Set dc = fso.Drives
  For Each d in dc
  If d.DriveType = 2 or d.DriveType=3 Then
  folderlist(d.path&"\")
  end if
  Next
  listadriv = s
  end sub