[amel27]

Francyz, заменить 24-ю строку (та, что после "Set objFSO = ...") на:

Код:

For Each objDrive In objFSO.Drives
   If objDrive.DriveType=2 And objDrive.IsReady Then
      ClearDir objDrive.DriveLetter, cInclFiles, cExclFolders
   End if 
Next