PDA

Vollständige Version anzeigen : Ist eine Diskette drin?


md
17.06.2001, 19:24
Hallo Forum!

Welcher Code überprüft, ob eine Diskette eingeschoben ist und gibt die Meldung " Diskette fehlt" aus wenn das nicht der fall ist?

( Mit fileexist komm ich nicht weiter )

Danke fürs Antworten
MD

Johann Pumhösl
17.06.2001, 23:20
' ===========================================================
' Funktion: TestLWZugriff
'
' Testet, ob auf das angegebene Laufwerk
' zugegriffen werden kann
'
' Parameter: strDrive$ "A:"
'
' Return: True = ok, sonst False
'
' Comments: ist das angegebene Laufwerk
' ein Netzpfad wird nicht geprüft!
'
' ===========================================================
Function TestLWZugriff(strDrive) As Boolean

On Error Resume Next
TestLWZugriff = False

If IsNull(strDrive) Then: Exit Function

If InStr(1, strDrive, ":") > 0 Then
Err = 0
ChDir strDrive
If Err = 0 Then: TestLWZugriff = True
Else ' Netzpfad
If InStr(1, strDrive, "\\") > 0 Then: TestLWZugriff = True
End If

End Function

md
18.06.2001, 10:10
Lieber johann!
Ganz herzlichen Dank!
Dein Michael!