Dir Function

Ibinabalik ang pangalan ng isang file, isang direktoryo, o lahat ng mga file at ang mga direktoryo sa isang drive o sa isang direktoryo na tumutugma sa tinukoy na landas sa paghahanap.

Dir [(PathName As String [, Attributes As Integer])]

String

PathName : Anumang string expression na tumutukoy sa path ng paghahanap, direktoryo o file. Ang argumentong ito ay maaari lamang tukuyin sa unang pagkakataon na tinawag mo ang Dir function. Kung gusto mo, maaari kang pumasok sa landas URL notation .

Mga Katangian :Anumang integer na expression na tumutukoy sa mga bitwise na katangian ng file. Ang Dir function ay nagbabalik lamang ng mga file o direktoryo na tumutugma sa mga tinukoy na katangian. Maaari mong pagsamahin ang ilang mga katangian sa pamamagitan ng pagdaragdag ng mga halaga ng katangian:

0 : Normal na mga file.

16 : Ibinabalik lamang ang pangalan ng direktoryo.

Gamitin ang attribute na ito para tingnan kung may file o direktoryo, o para matukoy ang lahat ng file at folder sa isang partikular na direktoryo.

Para tingnan kung may file, ilagay ang kumpletong path at pangalan ng file. Kung ang file o pangalan ng direktoryo ay hindi umiiral, ang Dir function ay nagbabalik ng isang zero-length na string ("").

Upang bumuo ng isang listahan ng lahat ng umiiral na mga file sa isang partikular na direktoryo, magpatuloy tulad ng sumusunod: Sa unang pagkakataong tumawag ka sa Dir function, tukuyin ang kumpletong path ng paghahanap para sa mga file, halimbawa, "D:\Files\*.ods". Kung ang landas ay tama at ang paghahanap ay nakahanap ng hindi bababa sa isang file, ibinabalik ng Dir function ang pangalan ng unang file na tumutugma sa path ng paghahanap. Upang ibalik ang mga karagdagang pangalan ng file na tumutugma sa landas, tawagan muli ang Dir, ngunit walang mga argumento.

Upang ibalik ang mga direktoryo lamang, gamitin ang parameter ng katangian. Ang parehong naaangkop kung gusto mong matukoy ang pangalan ng isang volume (halimbawa, isang hard drive partition).

Sub ExampleDir
' Ipinapakita ang lahat ng mga file at direktoryo
Dim sPath As String
Dim sDir As String, sValue As String
    sDir="Mga Direktoryo:"
    sPath = CurDir
    sValue = Dir$(sPath + getPathSeparator + "*",16)
    Do
        If sValue <> "." And sValue <> ".." Then
            If (GetAttr( sPath + getPathSeparator + sValue) And 16) >0 Then
                ' Kunin ang mga direktoryo
                sDir = sDir & chr(13) & sValue
            End If
        End If
        sValue = Dir$
    Loop Until sValue = ""
    MsgBox sDir,0,sPath
End Sub