Funkce Dir

Důležité :  Tento článek je strojově přeložený – přečtěte si toto upozornění. Anglickou verzi tohoto článku pro referenci najdete tady.

Poznámka : Funkce, metody, objektu nebo vlastnosti popsaných v tomto tématu je vypnutá, když běží služba Microsoft Jet výraz v režimu izolovaného prostoru, který brání hodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledejte v nápovědě "režim izolovaného prostoru".

Vrátí řetězec vyjadřující název souboru, adresáře nebo složky, která odpovídá zadaný vzorek nebo atribut souboru nebo jmenovka jednotky.

Syntaxe

Dir [(cesta [atributy] )]

Syntaxe funkce Dir obsahuje následující argumenty:

Argument

Popis

Cesta

Volitelné. Řetězcový výraz určující název souboru, může obsahovat adresáře nebo složky a jednotky. Řetězec nulové délky ("") je vrácena pokud nebyla nalezena cesta .

atributy

Volitelné. Konstanta nebo Číselný výraz, jejichž součet Určuje atributy souborů. Pokud není zadáno, vrátí soubory, které odpovídají cesta ale nemají žádné atributy.


Nastavení

NastaveníArgumentatributyjsou:

Konstanta

Hodnota

Popis

vbNormal

0

(Výchozí) Určuje soubory bez atributů.

vbReadOnly

1

Určuje soubory určené jen pro čtení kromě soubory bez atributů.

vbHidden

2

Určuje skryté soubory kromě soubory bez atributů.

VbSystem

4

Určuje systémové soubory kromě soubory bez atributů. Nedostupné na Macintosh.

vbVolume

8

Určuje jmenovka; Pokud není zadán žádný jiný, bude ignorována vbVolume . Nedostupné na Macintosh.

vbDirectory

16

Určuje bez atributů adresáře nebo složky kromě soubory.

vbAlias

64

Zadaný název souboru je alias. K dispozici pouze v systému Macintosh.


Poznámka : Tyto konstanty jsou určeny jazykem Visual Basic for Applications (VBA) a lze použít kdekoli v kódu místo správných hodnot.

Poznámky

V systému Microsoft Windows Dir podporuje více znaků (*) a jeden znak (?) zástupných znaků při zadávání více souborů. V počítačích Macintosh tyto znaky jsou považovány za platné znaky názvu souboru a nelze je jako zástupné znaky zadat více souborů.

Od Macintosh, které nejsou podporovány zástupné znaky, použijte k identifikaci skupin souborů typ souboru. Funkce MacID můžete určit typ souboru nepoužívejte názvy souborů. Například následující výraz vrátí název prvního TEXTOVÉHO souboru v aktuální složce:

Dir("SomePath", MacID("TEXT"))

Iterace všechny soubory ve složce, zadejte prázdný řetězec:

Dir("")

Pokud používáte funkci MacID s Dir v systému Windows, dojde k chybě.

Jakákoli hodnota atributy větší než 256 je považován za MacID hodnotu.

Zadejte cestu první volání funkce Dir nebo dojde k chybě. Pokud zadáte také atributy souborů, musí být cesta však započítávány.

Dir vrátí první název souboru, který odpovídá cesta. Získat další názvy souborů, které odpovídají cestavolat Dir znovu žádné argumenty. Pokud svou žádné další názvy souborů Dir vrátí řetězec nulové délky (""). Jakmile je vrátí řetězec nulové délky, je nutné zadat cestu na pozdější volání nebo dojde k chybě. Na nové cesta lze změnit bez načítání všechny příslušné názvy souborů, které odpovídají aktuální cesta. Nelze však volat zpětně funkce Dir . Volání Dir s atributem vbDirectory nevrací průběžně podadresáře.

Tip:     Vzhledem k tomu, že názvy souborů načtením v určitém pořadí, můžete uložit v Matice a seřaďte matice.

Příklad

Poznámka : Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.

Tento příklad používá funkci Dir ke kontrole, pokud existují některé soubory a adresáře. V počítačích Macintosh "HD:" je výchozí jednotky název a jednotlivé části cesty odděleny dvojtečky místo zpětnými lomítky na začátku. Zástupné znaky Windows jsou také považovány za platné znaky názvu souboru na Macintosh. Však můžete funkce MacID zadejte soubor skupin.

Dim MyFile, MyPath, MyName
' Returns "WIN.INI" (on Microsoft Windows) if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")
' Returns filename with specified extension. If more than one *.ini
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")
' Call Dir again without arguments to return the next *.INI file in the
' same directory.
MyFile = Dir
' Return first *.TXT file with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)
' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Poznámka : Upozornění ke strojovému překladu: Tento článek přeložil počítačový systém bez zásahu člověka. Společnost Microsoft nabízí tyto strojové překlady proto, aby umožnila uživatelům, kteří nemluví anglicky, získat informace o produktech, službách a technologiích této společnosti. Protože je tento článek strojově přeložený, může obsahovat slovní, syntaktické nebo gramatické chyby.

Rozšiřte své znalosti a dovednosti
Projít školení
Získejte nové funkce jako první
Připojte se k účastníkům programu Office Insiders

Byly tyto informace užitečné?

Děkujeme vám za zpětnou vazbu.

Děkujeme vám za váš názor. Vypadá to, že bude užitečné, když vás spojíme s některým z našich agentů z podpory Office.

×