Checking Whether Disk is in Floopy Drive

[fiona_conard]

Hi all,

How can i check whether disk is in floppy drive?

Thanks

[Mc Brain]

The easiest way is to try to read it an trap its error.

[Dinz]

Originally posted by Mc Brain
The easiest way is to try to read it an trap its error.

Thats a great idea..............

[Mc Brain]

For example:

Option Explicit
 
Public Function IsDriveReady(Drive As String) As Boolean
    Dim cDir As String
    On Error GoTo NotReady
    
    IsDriveReady = True
    
    If Len(Drive) = 1 Then Drive = Drive & ":"
    'Save the current dir
    cDir = CurDir
    
    'Change the current dir to the drive we want to test
    ChDir Drive
    
    'Change back to the path we were before
    ChDir cDir
    
    On Error GoTo 0
    Exit Function
    
NotReady:
    If Err = 75 Then
        'Path/File access error
        IsDriveReady = False
        Resume Next
    End If
 
End Function
 
Private Sub Form_Load()
    MsgBox IsDriveReady("A")
    
    'or
    
    MsgBox IsDriveReady("A:")
End Sub

[the_inferno]

For example:

Option Explicit
 
Public Function IsDriveReady(Drive As String) As Boolean
    Dim cDir As String
    On Error GoTo NotReady
    
    IsDriveReady = True
    
    If Len(Drive) = 1 Then Drive = Drive & ":"
    'Save the current dir
    cDir = CurDir
    
    'Change the current dir to the drive we want to test
    ChDir Drive
    
    'Change back to the path we were before
    ChDir cDir
    
    On Error GoTo 0
    Exit Function
    
NotReady:
    If Err = 75 Then
        'Path/File access error
        IsDriveReady = False
        Resume Next
    End If
 
End Function
 
Private Sub Form_Load()
    MsgBox IsDriveReady("A")
    
    'or
    
    MsgBox IsDriveReady("A:")
End Sub

How much of that code is really needed?

For example:

Option Explicit
 
Public Function IsDriveReady(Drive As String) As Boolean
    Dim cDir As String
    On Error GoTo NotReady
    
    IsDriveReady = True
    
On Error GoTo 0
    Exit Function
    
NotReady:
    If Err = 75 Then
        'Path/File access error
        IsDriveReady = False
        Resume Next
    End If
 
End Function
 
statement

Somthing like that?

[dglienna]

You still need to read the disk.


Dir(Drive) would do it.

[Mc Brain]

How much of that code is really needed?

Somthing like that?

Two things:

a) I did not post the second snippet. I don't know why it says I originally posted.
b) You stripped out all the lines which actually "checks" if the drive is ready.

[the_inferno]

Two things:

a) I did not post the second snippet. I don't know why it says I originally posted.
b) You stripped out all the lines which actually "checks" if the drive is ready.

Lol, damn!
So how much do I really need?

[Mc Brain]

Lol, damn!
So how much do I really need?

Could be...

Public Function IsDriveReady(Drive As String) As Boolean
    Dim cDir As String
    On Error GoTo NotReady
    
    IsDriveReady = True
    
    If Len(Drive) = 1 Then Drive = Drive & ":"
    cDir = Dir(Drive)
    
    On Error GoTo 0
    Exit Function
    
NotReady:
    If Err.Number = 75 Then
        'Path/File access error
        IsDriveReady = False
        Resume Next
    ElseIf Err.Number = 52 Then
        'Bad file name or number
        IsDriveReady = False
        Resume Next
    End If
 
End Function
 
Private Sub Form_Load()
    MsgBox IsDriveReady("A")
    
    'or
    
    MsgBox IsDriveReady("A:")
End Sub