ຟັງຊັນ Dir

ສົ່ງຄືນຊື່ຂອງໄຟລ໌, ໄດເຣັກທໍຣີ, ຫຼື ໄຟລ໌ ແລະ ໄດເຣັກທໍຣີທັງໝົດໃນໄດຣັຟ ຫຼື ໃນໄດເຣັກທໍຣີ ທີ່ກົງກັບເສັ້ນທາງການຄົ້ນຫາທີ່ລະບຸ.

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

ສະຕຣິງ

PathName: ນິພົດສະຕຣິງໃດໜຶ່ງທີ່ກຳນົດເສັ້ນທາງການຄົ້ນຫາ, ໄດເຣັກທໍຣີ ຫຼື ໄຟລ໌. ອາຄິວເມນນີ້ສາມາດລະບຸໄດ້ໃນຄັ້ງທຳອິດທີ່ທ່ານເອີ້ນຟັງຊັນ Dir ເທົ່ານັ້ນ. ຫາກທ່ານຕ້ອງການ, ທ່ານສາມາດປ້ອນເສັ້ນທາງໃນ ຮູບແບບ URL ໄດ້.

Attributes: ນິພົດຈຳນວນຖ້ວນໃດໜຶ່ງທີ່ກຳນົດຄຸນລັກສະນະຂອງໄຟລ໌ແບບບິດ. ຟັງຊັນ Dir ຈະສົ່ງຄືນພຽງແຕ່ໄຟລ໌ ຫຼື ໄດເຣັກທໍຣີທີ່ກົງກັບຄຸນລັກສະນະທີ່ລະບຸ. ທ່ານສາມາດປະສົມຄຸນລັກສະນະຫຼາຍຢ່າງໄດ້ໂດຍການບວກຄ່າຄຸນລັກສະນະເຂົ້າກັນ:

0 : ໄຟລ໌ປົກກະຕິ.

16 : ສົ່ງຄືນພຽງແຕ່ຊື່ຂອງໄດເຣັກທໍຣີ.

ໃຊ້ຄຸນລັກສະນະນີ້ເພື່ອທົດສອບວ່າໄຟລ໌ ຫຼື ໄດເຣັກທໍຣີມີຢູ່ຫຼືບໍ່, ຫຼື ເພື່ອຫາໄຟລ໌ ແລະ ໂຟນເດີທັງໝົດໃນໄດເຣັກທໍຣີໃດໜຶ່ງ.

ເພື່ອທົດສອບວ່າໄຟລ໌ມີຢູ່ຫຼືບໍ່, ໃຫ້ປ້ອນເສັ້ນທາງ ແລະ ຊື່ໄຟລ໌ທີ່ສົມບູນ. ຫາກຊື່ໄຟລ໌ ຫຼື ໄດເຣັກທໍຣີບໍ່ມີຢູ່, ຟັງຊັນ Dir ຈະສົ່ງຄືນສະຕຣິງຫວ່າງເປົ່າ ("").

ເພື່ອສ້າງລາຍການໄຟລ໌ທັງໝົດທີ່ມີຢູ່ໃນໄດເຣັກທໍຣີໃດໜຶ່ງ, ໃຫ້ເຮັດດັ່ງນີ້: ໃນຄັ້ງທຳອິດທີ່ທ່ານເອີ້ນຟັງຊັນ Dir, ໃຫ້ລະບຸເສັ້ນທາງການຄົ້ນຫາທີ່ສົມບູນສຳລັບໄຟລ໌, ຕົວຢ່າງ "D:\Files\*.ods". ຫາກເສັ້ນທາງຖືກຕ້ອງ ແລະ ການຄົ້ນຫາພົບໄຟລ໌ຢ່າງໜ້ອຍໜຶ່ງໄຟລ໌, ຟັງຊັນ Dir ຈະສົ່ງຄືນຊື່ຂອງໄຟລ໌ທຳອິດທີ່ກົງກັບເສັ້ນທາງການຄົ້ນຫາ. ເພື່ອໃຫ້ສົ່ງຄືນຊື່ໄຟລ໌ອື່ນໆທີ່ກົງກັບເສັ້ນທາງ, ໃຫ້ເອີ້ນ Dir ອີກຄັ້ງໂດຍບໍ່ຕ້ອງໃສ່ອາຄິວເມນ.

ເພື່ອໃຫ້ສົ່ງຄືນສະເພາະໄດເຣັກທໍຣີ, ໃຫ້ໃຊ້ພາຣາມິເຕີຄຸນລັກສະນະ. ເຊັ່ນດຽວກັນຫາກທ່ານຕ້ອງການຫາຊື່ຂອງວໍລຸມ (ຕົວຢ່າງ ພາທິຊັນຂອງຮາດດິດ).

Sub ExampleDir
' ສະແດງໄຟລ໌ ແລະ ໄດເຣັກທໍຣີທັງໝົດ
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
                ' ດຶງຂໍ້ມູນໄດເຣັກທໍຣີ
                sDir = sDir & chr(13) & sValue
            End If
        End If
        sValue = Dir$
    Loop Until sValue = ""
    MsgBox sDir,0,sPath
End Sub