So verwenden Sie Dir $ in VB6

Die Programmiersprache Visual Basic hat immer noch einige Verwendungsmöglichkeiten in der modernen Programmier- und Anwendungsentwicklung. Daher kann es sein, dass Sie sich in ihre Syntax einarbeiten, um die professionellen Anwendungen Ihres Unternehmens mit älteren Apps oder Codebibliotheken zu verbinden. Mit der Funktion Dir $ können Sie leicht sehen, wie die Datei- und Ordnersuche über VB6 durchgeführt wird.

1

Verwenden Sie die Funktion Dir $, um zu prüfen, ob eine Datei vorhanden ist. Wenn die Datei nicht vorhanden ist, gibt die Funktion eine leere Zeichenfolge zurück. Der folgende Code bestimmt, ob die Datei "example.txt" im Verzeichnis C: vorhanden ist oder nicht:

Wenn Dir $ ("C: \ example.txt") = "" Dann Msgbox "nicht hier!" Else Msgbox "hier" Ende Wenn

2

Verwenden Sie Dir $, um zu prüfen, ob ein Verzeichnis existiert. Dieser Befehl ist identisch mit dem Befehl, mit dem geprüft wird, ob eine Datei vorhanden ist. In diesem Funktionsaufruf muss jedoch das zusätzliche Argument "vbDirectory" verwendet werden. Dieser Beispielcode überprüft das Vorhandensein eines Ordners mit dem Namen "example" in der Partition C:

Wenn Dir $ ("C: \ example", vbDirectory) = "" Dann Msgbox "nicht hier!" Else Msgbox "hier" Ende Wenn

3.

Verwenden Sie Dir $, um den Inhalt eines Verzeichnisses aufzulisten. Wenn Sie wissen, dass ein Verzeichnis existiert, können Sie mit Dir $ die Dateien in diesem Verzeichnis auflisten. Verwenden Sie eine Variable namens "name" und verwenden Sie Dir $ zusammen mit einer Do-While-Schleife, um den Namen jeder Datei in einem Verzeichnis mit der Dateinamenerweiterung ".txt" abzurufen:

Dim Name als String

name = Dir $ ("C: \ example * .txt") Do to name = "" Druckname name = Dir $ () Schleife