.....

[stuka]

.

Edited August 23, 2009 by stuka

[Aceguy]

$var = DriveGetDrive("REMOVABLE")

will detect A: drive

so:-

$var = DriveGetDrive("REMOVABLE")

if $var = 'A:' then

;do whatever

endif

Edited March 14, 2008 by Aceguy

[d4rk]

2, i think you can identify a floppy by its small space (1.44 MB)

$drive=DriveGetDrive("REMOVABLE")
$space = DriveSpaceTotal( $drive)

if $space< 2 then
;anything here
endif

[JayMan]

I might be over simplifying this... But 99.9% of floppy drives out there with be assigned to A:\... and 99.9% of A:\ drives will be floppy drives...

So... if DriveGetType("A:") returns anything... then ya have a floppy drive... if it returns nothing... then ya don't have a floppy drive...

JayMan

[MHz]

But i still think DriveGetDrive=("Floppy") would be a great idea if it existed

Drive letters A: & B: are reserved for floppy drives. You may be able to code for those 2 drives and ensure that they are in a ready state.

[JayMan]

Prior to Vista i'd agree with you... However in Vista you can assign B:\ to other devices (my burner is B:\), i'd suspect A:\ could be done also...

JayMan

[ChrisL]

This works for me, it's quite crude really...

#include<string.au3>
For $i = 65 to 90
    $key = Regread("HKLM\System\MountedDevices","\DosDevices\" &  Chr($i) & ":")
    If StringInStr(_HexToString(StringReplace ($key, "00", "")),"Floppy") and DriveStatus( Chr($i) & ":\" ) <> "INVALID" Then Msgbox(0,"",Chr($i) & ": is a floppy drive")
Next

Edit: Variation on a theme!

$var = DriveGetDrive ( "ALL" )
If NOT @error Then
    For $i = 1 to $var[0]
        $key = Regread("HKLM\System\MountedDevices","\DosDevices\" &  $var[$i])
        If StringInStr(_HexToString(StringReplace ($key, "00", "")),"Floppy") Then Msgbox(0,"",$var[$i] & " is a floppy drive")
    Next
EndIf

Edited March 14, 2008 by ChrisL

[ChrisL]

A combination of the 2

While 1
    $var = DriveGetDrive ( "ALL" )
    If NOT @error Then
        For $i = 1 to $var[0]
            $key = Regread("HKLM\System\MountedDevices","\DosDevices\" &  $var[$i])
            If StringInStr(_HexToString(StringReplace ($key, "00", "")),"Floppy") and DriveGetFileSystem( $var[$i]) <> "" Then Exit Msgbox(0,"",$var[$i] & " is a loaded floppy drive")
        Next
            Sleep(250)
    EndIf
WEnd

On my laptop it doesn't make the sound until a floppy is inserted ( and only the fist time ) but with this being a USB external I think the disk notification is handled by the drive. I'm not sure if that will be the case on a standard internal one

[ChrisL]

Your script exits after determining if a floppy exists or is plugged in? It doesn't continue looping after that?

Maybe that's why the sound came on once only?

What about the DriveGetFileSystem example i gave?

I think I have to rush over to my friend's place tomorrow if all fails ...he has an internal floppy drive

No it's not that, if I run the script again after taking the floppy out it doesn't make the sound again.. I'm not that stupid!

I just wrote that in as a way of exiting, it's only an example.

The sound only happened once full stop so no it didn't do it with yours either but like I said that maybe because its an external USB

Edited March 14, 2008 by ChrisL

[ChrisL]

yes when I change the path to A: it did... however

I've just been upstairs and fired up my tower and the function DriveGetFileSystem makes the floppy grind but like I said I don't think internals handle the notification they actually have to check

It is only a very quick grind but I guess it depends how frequently you are going to poll

[GEOSoft]

$dList = DriveGetDrive("Removable")
For $I = 1 To Ubound($dList) -1
   If _DriveIsFloppy($dList[$I]) = 1 Then MsgBox(0, "Test", "Drive " & StringUpper($dList[$I]) & " is a floppy drive.")
Next

Func _DriveIsFloppy($Drive, $Computer = ".")
$Drive = StringReplace($Drive, "\", "")
Local $colItems = ""
$objWMIService = ObjGet("winmgmts:\\" & $Computer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE MediaType = '5'", "WQL", 0x30)
If IsObj($colItems) then
   For $objItem In $colItems
      If $objItem.DeviceID = $Drive Then
         Return 1
      Else
         Return 0
      EndIf
   Next
Endif
EndFunc

Edited March 14, 2008 by GEOSoft

[ChrisL]

Does checking drive A: 's total space produce grinding noises(attempt to access) from the drive?

I think everyything that wants anything from Drive A: is going to do it becuase unless it's like my USB drive it lust has to keep physicaly spinning up the disk to check

Edit: I was going to change lust to just but I don't think I will!

Edited March 15, 2008 by ChrisL

[ChrisL]

If you only need to know it's a floppy drive then use this.

$var = DriveGetDrive ( "ALL" )
If NOT @error Then
    For $i = 1 to $var[0]
        $key = Regread("HKLM\System\MountedDevices","\DosDevices\" &  $var[$i])
        If StringInStr(_HexToString(StringReplace ($key, "00", "")),"Floppy") Then Msgbox(0,"",$var[$i] & " is a floppy drive")
    Next
EndIf

If you need to know a floppy disk is loaded I think your knackered!