Prüfen, ob eine Diskette eingelegt ist

105024



Mit diesem Code können Sie prüfen, ob im Diskettenlaufwerk eine Diskette eingelegt ist.
Ist keine Diskette eingelegt, werden Sie aufgefordert, eine einzulegen.

Sub Prüfung_Diskettenschacht()
'Variablen dimensionieren
Dim datei

'Fehler abfangen
On Error Resume Next

'Prüfen, ob Diskette eingelegt ist und Meldung ausgeben
If IsError(MeineDatei = Dir("a:\", vbDirectory)) = True Then
    MsgBox "Bitte eine Diskette einlegen!"
    Exit Sub
End If

End Sub

Sie können also Erzwingen, dass eine Diskette eingelegt wird.
Dies ist bspw. für Installationsroutinen etc. wichtig.

 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800