response




Gavin

following the routine for your request

Sub serial()

drvpath = "c:"

Dim fs, d, s, t
Set fs = CreateObject("S cripting.FileSy stemObject")
Set d = fs.GetDrive(fs. GetDriveName(fs .GetAbsolutePat hName(drvpath)) )
Select Case d.DriveType
Case 0: t = "Desconocid o"...