Desk Drive

[BLuFeNiX]

Desk Drive v1.0

Straight from the support forum!

if you have a floppy drive you may get VERY VERY annoyed...

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.12 (beta)
Author:      BLuFeNiX (formerly known as HackerZer0)

Script Function:
    Add shortcut to removable media to desktop.

#ce ----------------------------------------------------------------------------

Opt("OnExitFunc", "_CLEANUP")

While 1
    
    For $i = 65 to 90
        If DriveStatus (Chr($i) & ":") = "READY" then
        
            If DriveGetType(Chr($i) & ":") = "Fixed" then Continueloop
        
            If NOT FileExists(@desktopDir & "\Drive (" & Chr($i) & ").lnk") then FileCreateShortcut(Chr($i) & ":",@DesktopDir & "\Drive (" & Chr($i) & ").lnk")
        
            Else
                FileDelete(@desktopDir & "\Drive (" & Chr($i) & ").lnk")
        EndIf
    Next
    
    Sleep(1000)
WEnd

Func _CLEANUP()
    FileDelete(@desktopDir & "\Drive (*).lnk")
EndFunc

[James]

You could just choose to ignore a:\

[ProgAndy]

You could do it e.g. this way: (If a floppy exists, the Shortcut is always created, even, if no Disk is inserted)

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.11.12 (beta)
Author:      BLuFeNiX (formerly known as HackerZer0)

Script Function:
    Add shortcut to removable media to desktop.

#ce ----------------------------------------------------------------------------

Opt("OnExitFunc", "_CLEANUP")
If DriveStatus ("A:") <> "INVALID" Then FileCreateShortcut("A:",@DesktopDir & "\Drive (A).lnk"); Floppy A
If DriveStatus ("B:") <> "INVALID" Then FileCreateShortcut("B:",@DesktopDir & "\Drive (B).lnk"); Floppy B
While 1
    
    For $i = 67 to 90
        If DriveStatus (Chr($i) & ":") = "READY" then
        
            If DriveGetType(Chr($i) & ":") = "Fixed" then Continueloop
        
            If NOT FileExists(@desktopDir & "\Drive (" & Chr($i) & ").lnk") then FileCreateShortcut(Chr($i) & ":",@DesktopDir & "\Drive (" & Chr($i) & ").lnk")
        
            Else
                FileDelete(@desktopDir & "\Drive (" & Chr($i) & ").lnk")
        EndIf
    Next
    
    Sleep(1000)
WEnd

Func _CLEANUP()
    FileDelete(@desktopDir & "\Drive (*).lnk")
EndFunc

[HAL9000]

opt("TrayMenuMode",1)
HotKeySet("{ESCAPE}", "ESCAPE")
While 1
    For $i = 67 to 90
        If DriveStatus (Chr($i) & ":") = "READY" then
        If DriveGetType(Chr($i) & ":") = "Fixed" then Continueloop
        If NOT FileExists(@desktopDir & "\Drive (" & Chr($i) & ").lnk") then fileCreateShortcut(Chr($i) & ":",@DesktopDir & "\Drive (" & Chr($i) & ").lnk")
        if FileExists(@desktopDir & "\Drive*.lnk") then TraySetState (4)
        Else
        FileDelete(@desktopDir & "\Drive (" & Chr($i) & ").lnk")
        if NOT FileExists(@desktopDir & "\Drive*.lnk") then TraySetState (8)    
        EndIf
    Next    
Sleep(500)
WEnd
func escape()
FileDelete(@desktopDir & "\Drive (*).lnk")  
Exit
EndFunc

[BLuFeNiX]

i know i can disclude floppy checking, but that kinda defeats the purpose of the script, partially anyway.

[headroom]

is possible to use PNG file for icon drive?