Funkcija Dir

Vrne ime datoteke, mape ali vseh datotek in map na pogonu ali pa v mapi, ki se ujemajo z navedeno potjo iskanja.

Skladnja:

Dir [(Besedilo As String) [, Atribut As Integer]]

Vrnjena vrednost:

String

Parametri:

Besedilo: poljuben niz ali izraz, ki določa pot za iskanje, mapo ali datoteko. Ta argument se lahko navede samo pri prvem klicu funkcije Dir. Če želite, lahko tudi uporabljate zapis URL.

Atribut: poljuben cel izraz, katerega vrednost določa po bitih lastnosti datoteke. Funkcija Dir bo vrnila samo tiste datoteke in mape, ki ustrezajo navedenim atributom. Posamezne atribute lahko kombinirate, tako da jih seštevate.

0 : navadne datoteke.

16 : vrne samo ime mape.

Uporabite ta atribut, da ugotovite, ali datoteka ali mapa obstaja, ali pa da ugotovite vse datoteke in mape, ki se v konkretni mapi nahajajo.

Če želite ugotoviti, ali datoteka obstaja, vnesite v celoti njeno pot in ime. Če imenovana datoteka ne obstaja, bo funkcija Dir vrnila prazen niz ("").

Če želite ustvariti seznam vseh datotek, ki obstajajo v določeni mapi, sledite navodilom: Ob prvem klicu funkcije Dir navedite polno pot do datotek, npr. »D:\Datoteke\*.ods«. Če je pot pravilna in če je zadetek iskanja vsaj ena datoteka, bo funkcija Dir vrnila ime te datoteke oziroma prve datoteke, ki ustreza navedenemu iskalnemu nizu. Do imen naslednjih datotek, ki poti ustrezajo, pridete s ponovnimi klici funkcije Dir, vendar tokrat brez argumentov.

Če želite samo mape, si pomagajte s parametrom atribut. Enako velja tudi v primeru, da želite ime pogona (npr. razdelka na trdem disku).

Primer:

Sub ExampleDir

' izpiše vse datoteke in mape

Dim sPath As String

Dim sDir As String, sValue As String

    sMapa="Mape:"

    sPath = CurDir

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

    Do

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

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

                ' najdi mape

                sDir = sDir & chr(13) & sValue

            End If

        End If

        sValue = Dir$

    Loop Until sValue = ""

    MsgBox sDir,0,sPath

End Sub