Dieses Tutorial soll Ihnen zeigen, wie man feststellt, ob eine Datei oder ein Verzeichnis existiert, und wie man feststellt, ob eine Diskette eingelegt ist.
Ich weiß serwohl, dasses APIs gibt, die überprüfen, ob eine Datei existiert. Allerdings nicht alle Dateitypen, Verzeichnisse auch nicht.
Meine Überlegung: Man kann JEDE Datei mit einem Texteditor öffnen, auch wenn bei Audiodateien ein ünverständlicher WirrWarr von Sonderzeichen kommt, es sei denn, die Datei existiert nicht. Das ist das einzige, was das Programm daran hindern kann, eine Datei zu öffnen. Existiert sie nicht, würde eigentlich ein Fehler ausgegeben werden, den fangen wir ab.
Also zuerst die Fehlerbehebung:
On Error Goto Fehler
Dann versuchen wir, die Datei zu öffnen:
Open Pfad for Input as #1
Wenner hier nicht rausfliegt, dann is gut, sie existiert, wir machen sie wieder zu
Close #1
DATEI EXISTIERT
Exit Sub
Fehler:
Wenn er hier ankommt, EXISTIERT sie NICHT
Nochmal das ganze als Funktion:
Public Function Exist(Pfad as String) As Boolean
On Error Goto Fehler
Open Pfad For Input as #1
Close #1
Exist = True
Exit Function
Fehler:
Exist = False
End Function
Das kann man dann aus dem Code aufrufen:
Dim PfadAudio as String
PfadAudio = "C:\test.wav"
If Exist(PfadAudio) Then
Msgbox "Existiert"
Else
Msgbox "Existiert nicht"
ENd If
Um zu überprüfen, ob eine Diskette eingelegt ist, versuchen wir einfach eine Datei darauf zu erstellen, das funktioniert auch, wenn die Diskette voll ist, da die Datei leer bleibt:
Public Function DisketteEingelegt() As Boolean
On Error Goto Fehler
Open "A:\test.txt" For Append as #1
Close #1
Kill "A:\test.txt"
DisketteEingelegt = True
Exit Function
Fehler:
DisketteEingelegt = False
End Function
Aufzurufen:
If DisketteEingelegt Then
Msgbox "Diskette drin"
Else
MSgbox "Diskette nicht drin"
End If
So, das war mein 3. Tutorial. Ich hoffe, es hat Ihnen gefallen, und Sie können etwas damit anfangen. Ich entschuldige mich für Rechtschreibfehler, und möchte Sie bitten, mir bei Nachfragen eine PN zu schreiben. Danke
Philipp Keck