Test if disk is in A:\ (resolved)

[tr0n]

i'm using this code to test if a disk is in drive A:

Dim lSerial As Long 'Used to store the serial # of the disk
 
GetVolumeInformation "A:\", "", 255, lSerial, 0, 0, "", 255

but it keeps returning 0 for the serial #, although it was working yesterday. is it possible for disks to have a serial # of 0, or am i just doing something wrong?

thanks

[tr0n]

ah, nevermind, just found this:

Private Function IsFloppyReady(sDrive As String) As Boolean
    Dim sVolumeName As String
    Dim dwVolumeSize  As Long
 
    sVolumeName = Space$(32)
    dwVolumeSize = Len(sVolumeName)
 
   'success at accessing the drive returns a 1
    IsFloppyReady = GetVolumeInformation(sDrive, sVolumeName, dwVolumeSize, 0&, 0&, 0&, vbNullString, 0&)
End Function