የ ዳይሬክቶሪ ተግባር

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

አገባብ:

ዳይሬክቶሪ [(ጽሁፍ እንደ ሀረግ) [, መለያ እንደ ኢንቲጀር]]

ይመልሳል ዋጋ:

ሐረግ

ደንቦች:

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

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

0 : መደበኛ ፋይሎች

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

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

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

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

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

ለምሳሌ:

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