Functie Dir

Geeft de naam van een bestand, map of alle bestanden en mappen op stations of in mappen die aan het opgegeven zoekpad voldoen.

Syntaxis:

Dir [(Tekst As String) [, Attrib As Integer]]

Teruggegeven waarde:

String

Parameters:

Tekst: Elke tekenreeks die het zoekpad, de map of het bestand specificeert. Dit argument kan alleen gespecificeerd worden wanneer u de Dir-functie voor het eerst aanroept. Als u wilt, kunt u het pad in URL-notatie invoeren.

Attrib: Elke integer expressie die bestandsattributen bitsgewijs specificeert. De functie Dir retourneert alleen bestanden of mappen die met de gespecificeerde attributen overeenkomen. U kunt verschillende attributen samenvoegen door toevoeging van de attribuutwaarden:

0 : Normale bestanden.

16 : Geeft alleen de naam van de map.

Gebruik dit attribuut om te controleren of een bestand of map bestaat, of om alle bestanden en mappen in een specifieke map te zien.

Voer het pad en de naam van een bestand volledig in om te controleren of het bestaat. Als de bestands- of mapnaam niet bestaat, geeft de Dir-functie een tekenreeks met lengte nul ("").

U kunt als volgt een lijst van alle bestaande bestanden in een specifieke map genereren: Wanneer u de Dir-functie voor het eerst aanroept, specificeert u het volledige zoekpad voor de bestanden, bijvoorbeeld 'D:\Files\*.ods'. Is het pad juist en vindt de zoekopdracht ten minste één bestand, dan geeft de Dir-functie de naam van het eerste bestand dat met het zoekpad overeenkomt. Voor extra bestandsnamen die met het pad overeenkomen, roept u 'Dir' nogmaals op, maar zonder argumenten.

Als u alleen mappen wilt retourneren, gebruikt u de attribuutparameter. Hetzelfde geldt als u de naam van een volume wilt bepalen (bijvoorbeeld een harde-schijfpartitie).

Voorbeeld:

Sub ExampleDir

' Geeft alle bestanden en mappen weer

Dim sPath As String

Dim sDir As String, sValue As String

    sDir="Mappen:"

    sPath = CurDir

    sValue = Dir$(sPath + getPathSeparator + "*",16)

    Do

        If sValue <> "." And sValue <> ".." Then

            If (GetAttr( sPath + getPathSeparator + sValue) And 16) >0 Then

                ' Pak de mappen

                sDir = sDir & chr(13) & sValue

            End If

        End If

        sValue = Dir$

    Loop Until sValue = ""

    MsgBox sDir,0,sPath

End Sub