Entwickler sollten für die Existenz einer Datei , bevor Sie sie manipulieren zu überprüfen. Wenn ein Programmierer versucht, eine Datei , die nicht vorhanden ist , können eine Anwendung fehlschlagen oder ungenaue Ergebnisse erzeugen . VB6, auch als Visual Basic 6 bekannt ist, verfügt nicht über eine Funktion namens " Sehen Sie, wenn diese Datei vorhanden ist . " Allerdings hat es Ihnen erlauben, die Anwesenheit einer Datei auf einem Computer mit einem indirekten Methode erkennen . Anleitung
1
Starten Sie die VB6-Anwendung und drücken Sie " Strg" und " N ", um die " New Project" Fenster zu öffnen.
2
Doppelklicken Sie auf " Standard- EXEC" um ein neues Projekt zu erstellen. VB6 zeigt ein leeres Formular in der Editor-Fenster .
3
Doppelklicken Sie auf die "Command" -Taste in der Toolbox befindet , um es auf dem Formular platzieren.
4 < . p> rechte Maustaste auf diese Schaltfläche und klicken Sie auf " Code anzeigen " , um den Code -Fenster
5
Fügen Sie den folgenden Code vor dem "End Sub "-Anweisung , die Sie im Code zu sehen :
Dim fileToCheck As String Dim
fileExists As Boolean Dim
directoryName As String
Dieser Code definiert drei Variablen . Die " fileToCheck " Variable enthält den Namen der Datei, deren Existenz Sie zu erkennen . Die " fileExists " Variable enthält "Wahr" oder " Falsch ", je nachdem , ob die Datei vorhanden ist. VB6 speichert die Datei in das Verzeichnis Name in der Variable mit dem Namen " directoryName ", wenn die Datei vorhanden ist
6
Fügen Sie den folgenden Code unter dem Code im vorherigen Schritt aufgeführt : .
FileToCheck = " C \\ : somefolder \\ somefile.txt "
directoryName = Dir ( fileToCheck )
Wenn directoryName =" "Then
fileExists = False Else
fileExists = True End If
MsgBox fileExists
Ersetzen Sie " C: \\ somefolder \\ somefile.txt " mit dem vollständigen Pfad der Datei, die Sie prüfen möchten . Zum Beispiel, wenn Sie sehen, ob eine Datei namens " music.jpg " existiert in einem Ordner namens " Medien" auf Ihrem Laufwerk "D" wollen , ersetzen Sie "C: \\ somefolder \\ somefile.txt " mit "D: \\ Media \\ music.jpg . " Die nächste Codezeile führt die "Dir" -Funktion. Er untersucht den Wert von " fileToCheck . " Wenn der Befehl "dir" findet die angegebene Datei , speichert es die Verzeichnis-Namen in der Variable mit dem Namen " directoryName . " Ansonsten speichert sie einen leeren Wert .
7
Presse "F5 ", um die Anwendung auszuführen. Wenn das Formular angezeigt wird, klicken Sie auf die Schaltfläche . Der Code läuft , und ein Meldungsfeld zeigt " wahr", wenn die Datei, die Sie existiert überprüft. Wenn diese Datei nicht existiert, zeigt das Meldungsfeld " Falsch. "