IBM Lotus Symphony
|
Vrne ime datoteke, imenika ali vseh datotek in imenikov na pogonu ali v imeniku, ki se ujemajo s podano iskano potjo.
Dir [(Text As String) [, Attrib As Integer]]
Niz
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).
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