IBM Lotus Symphony


Funkcija Dir [izvajalno okolje]

Vrne ime datoteke, imenika ali vseh datotek in imenikov na pogonu ali v imeniku, ki se ujemajo s podano iskano potjo.

Skladnja:

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

Vrnjena vrednost:

Niz

Parametri:

Text: Katerikoli nizovni izraz, ki podaja iskano pot, imenik ali datoteko. Ta argument lahko podate samo prvič, ko kličete funkcijo Dir. Po želji lahko v notacijo URL-ja vnesete pot.

Attrib: Katerikoli celoštevilski izraz, ki podaja atribute datoteke na ravni bitov. Funkcija Dir vrne samo datoteke ali imenike, ki se ujemajo s podanimi atributi. Več atributov lahko kombinirate z dodajanjem vrednosti atributov:

0 : Navadne datoteke.

16 : Vrne samo ime imenika.

S tem atributom lahko preverite, ali datoteka ali imenik obstaja, ali določite vse datoteke in mape v specifičnem imeniku.

Če želite preveriti, ali datoteka obstaja, vnesite celotno pot in ime datoteke. Če ime datoteke ali imenika ne obstaja, funkcija Dir vrne niz z dolžino nič ("").

Če želite generirati seznam vseh obstoječih datotek v specifičnem imeniku, nadaljujte na naslednji način: Ko prvič kličete funkcijo Dir, podajte celotno iskano pot za datoteke, na primer "D:\Files\*.sxw". V primeru, da je pot pravilna in iskanje najde vsaj eno datoteko, funkcija Dir vrne ime prve datoteke, ki se ujema z iskano potjo. Če želite vrniti dodatna imena datotek, ki se ujemajo s potjo, znova pokličite funkcijo Dir, tokrat brez argumentov.

Če želite vrniti samo imenike, uporabite parameter atributa. Enako velja, če želite določiti ime nosilca (na primer particije trdega diska).

Kode napak

5 Neveljavni klic procedure

53 Datoteke ni mogoče najti

Primer:

Sub ExampleDir

REM Displays all files and directories

Dim sPath As String

Dim sDir as String, sValue as String

sDir="Directories:"

sPath = CurDir

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

Do

If sValue <> "." and sValue <> ".." Then

if (GetAttr( sPath + getPathSeparator + sValue) AND 16) >0 then

REM get the directories

sDir = sDir & chr(13) & sValue

End If

End If

sValue = Dir$

Loop Until sValue = ""

MsgBox sDir,0,sPath

End sub


Povratne informacije o izdelku | Dodatna dokumentacija | Blagovne znamke