Forum Discussion

AndersW's avatar
AndersW
Occasional Contributor
15 years ago

Need to find Label or Serial for removable drive(s)

TC version: 7.52 Script language: Delphi I am currently making some tests for accessing a removable drive to read a file on it. Problem is, that I can't be certain that the drive alwa...
YMinaev's avatar
YMinaev
Staff
15 years ago
Hi Anders,



You can check drive type by using the DriveType property.



Here is an example (avoiding remote drives):

function DriveTypeExample;

var i, colDrives: OleVariant;

begin

  colDrives := aqFileSystem.Drives;

  for i := 0 to colDrives.Count-1 do

  begin

    if colDrives.Item(i).DriveType <> 4 then

      Log.Message(ColDrives.Item(i).DriveLetter);

  end;

end;