ເນື້ອໃນ

# ຟັງຊັນ Dir

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

### ໄວຍາກອນ:

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

### ປະເພດຄ່າທີ່ສົ່ງກັບ:

ສະຕຣິງ

### ພາຣາມິເຕີ:

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

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

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

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

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

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

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

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

### ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

53 ບໍ່ພົບໄຟລ໌

### ຕົວຢ່າງ:

    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

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຟັງຊັນ CurDir

ຟັງຊັນ CompatibilityMode()

ຄຳສັ່ງ Option VBASupport