Verifica daca este introdusa discheta in FLOPPY

objWMI = Getobject("winmgmts:\\")
cCadWMI = "Select * From Win32_LogicalDisk Where DeviceID = 'A:'"
objOper = objWMI.ExecQuery(cCadWMI)

For Each oDisk in objOper
nFree = oDisk.FreeSpace
If IsNull(nFree) Then
? "Nu exista discheta in unitate"
EndIf
Next