Check The A: Drive For Diskette

[NitherWise]

Is there a macro or some kind of code that I could write to have Access check the A: drive for a diskette before it performs an import?

The problem I'm having now is that Access goes through the process of importing the file and displaying the message box that the import was successful even if the drive is empty.

Thanks for your help.

 

[zilpher]

Well, I tested this in VB6 and Excel 2000 Don't have access available

This will test for a floppy disk in drive A:\, but if your code does it's stuff and reports no issues without the disk in, I think you have bigger issues with it, this might help you resolve some of them:

<pre style="background:#F4F4F4;"><font color="#000000" size=2><font color="#000088" size=2>Function</font> DiskInFloppy(Drive <font color="#000088" size=2>As</font> <font color="#000088" size=2>String</font>) <font color="#000088" size=2>As</font> <font color="#000088" size=2>Boolean</font>
<font color="#000088" size=2>On</font> <font color="#000088" size=2>Error</font> <font color="#000088" size=2>GoTo</font> nodisk

<font color="#000088" size=2>ChDir</font> Drive
DiskInFloppy = <font color="#000088" size=2>True</font>
<font color="#000088" size=2>Exit</font> <font color="#000088" size=2>Function</font>

nodisk:
<font color="#000088" size=2>If</font> Err.Number = 75 <font color="#000088" size=2>Then</font> DiskInFloppy = <font color="#000088" size=2>False</font>
<font color="#000088" size=2>End</font> <font color="#000088" size=2>Function</font>



<font color="#000088" size=2>Sub</font> hhd()
<font color="#000088" size=2>If</font> DiskInFloppy("A:") <font color="#000088" size=2>Then</font>
MsgBox "Floppyful"
<font color="#000088" size=2>Else</font>
MsgBox "Floppyless"
<font color="#000088" size=2>End</font> <font color="#000088" size=2>If</font>
<font color="#000088" size=2>End</font> <font color="#000088" size=2>Sub</font>
</font></pre>


HTH

Matt

 

[smozgur]

Try FileSystemObject.

Function CheckDrive() As Boolean
Dim fso As Object
Dim drv As Object
Dim driveletter As String
    
    driveletter = "A:"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.DriveExists(driveletter) = False Then
        MsgBox "Device unavailable.", vbOKOnly + vbExclamation, "Error"
        Exit Function
    End If
    Set drv = fso.GetDrive(driveletter)
    If drv.IsReady Then
        CheckDrive = True
    Else
        CheckDrive = False
    End If
End Function

Usage :

....
if CheckDrive=False then
  'Not ready
  'Stop execution
else
  'Ready
  'Do Import
End if
....

I hope it helps.

Suat