ይዞታዎች
ማውጫ 🔎︎

# የ ዳይሬክቶሪ ተግባር

የ ፋይል ስም: ዳይሬክቶሪ: ወይንም ሁሉንም ፋይሎች እና ዳይሬክቶሪዎች በ አካሉ ውስጥ ወይንም በ ዳይይሬክቶሪ ውስጥ ያሉ የ ተወሰነውን መፈለጊያ ደንብ የሚያሟሉ ይመልሳል

### አገባብ:

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

## ይመልሳል ዋጋ:

ሐረግ

### ደንቦች:

ጽሁፍ: ማንኛውም የ ሀረግ መግለጫ መፈለጊያ መንገድ: ዳይሬክቶሪ ወይንም ፋይል: ይህ ክርክር መወሰን የሚችለው በ መጀመሪያ ጊዜ እርስዎ የ ዳይሬክቶሪ ተግባር በሚጠሩ ጊዜ ነው: እርስዎ ከ ፈለጉ መንገድ ማስገባት ይችላሉ በ URL notation.

መለያ: ማንኛውም የ ኢንቲጀር መግለጫ የሚወስነው bitwise ፋይል መለያ ነው: የ ዳይሬክቶሪ ተግባር ፋይሎች ብቻ ይመልሳል ወይንም ዳይሬክቶሪዎች የ ተወሰነውን መለያ የሚመሳሰሉ: እርስዎ መወሰን ይችላሉ በርካታ መለያዎች በ መጨመር የ መለያ ዋጋዎች:

0 : መደበኛ ፋይሎች

16 : የሚመልሰው የ ዳይሬክቶሪ ስም ብቻ ነው

ይህን መለያ ይጠቀሙ ፋይል ለ መመርመር ወይንም ዳይሬክቶሪ ቀደም ብሎ እንደ ነበር: ወይንም ሁሉንም ፋይሎች እና ፎልደሮች ለ መወሰን በ ተወሰነ ዳይሬክቶሪ ውስጥ

ፋይል እንደ ነበረ ለ መመርመር: የ ፋይሉን ሙሉ ስም እና መንገድ ያስገቡ: ፋይሉ ወይንም ዳይሬክቶሪው ካልነበረ: የ ዳይሬክቶሪ ተግባር ይመልሳል ዜሮ-እርዝመት ሀረግ ("")

ለማመንጨት ዝርዝር ለ ሁሉም የ ነበሩ ፋይሎች በ ተወሰነ ዳይሬክቶሪ ውስጥ የሚቀጥለውን ያድርጉ: በ መጀመሪያ ጊዜ የ ዳይሬክቶሪ ተግባር ሲጠሩ: ሙሉ የ መፈለጊያ መንገድ ይወስኑ ለ ፋይሎች: ለምሳሌ: "D:\Files\*.sxw". መንገዱ ትክክል ካልሆነ እና መፈለጊያው አንድ ፋይል ብቻ ካገኘ: የ ዳይሬክቶሪ ተግባር ይመልሳል ስም ለ መጀመሪያው ፋይል ከ መፈለጊያው መንገድ ጋር የሚመሳሰለውን: ተጨማሪ የ ፋይሎች ስም ለ መመለስ መንገዱን የሚስማማ: እርስዎ ያለ ምንም ክርክር ዳይሬክቶሪ እንደገና መጥራት አለብዎት

ዳይሬክቶሪ ብቻ እንዲመልስ: ይጠቀሙ የ መለያ ደንብ: ተመሳሳይ ይፈጽሙ እርስዎ መወሰን ከ ፈለጉ የ መጠን ስም (ለምሳሌ: የ hard drive partition)

### የ ስህተት ኮዶች:

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
                    ' Get the directories
                    sDir = sDir & chr(13) & sValue
                End If
            End If
            sValue = Dir$
        Loop Until sValue = ""
        MsgBox sDir,0,sPath
    End Sub

የ ተዛመዱ አርእስቶች

CurDir Function