See if a Floppy is inserted into drive A: ??? 1

[DougP]

If student turns in their homework on a floppy disk it would be nice to help grade their work if I could write a program to read the students ID number and pull them up. They would be instructed to put it in the floppy when formatting it? Or using the DOS label command?

Here is what I have so far. This works great in the ‘load’ event or when called.

Function ShowVolumeInfo(drvpath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    s = "Current Student ID " & d.VolumeName
    ShowVolumeInfo = s
End Function

Is there a way to see if a new floppy is inserted and run this automatically? Using an API perhaps?


DougP, MCP, A+

 

[Swi]

http://www.vb-helper.com/howto_see_if_floppy_drive_empty.html

Swi

 

[DougP]

yeah baby
how 'bout a star !!!

DougP, MCP, A+

 

[strongm]

It has been covered in this forum on a number of occassions as well. And with the Search functionality now restored after a minor break...