Innehållsförteckning
Dir Beskrivning
Returnerar det första filnamnet som matchar sökvägsnamnet och de angivna attributen.
Enkla Dir Exempel
| 1 | MsgBox Dir ("") |
Detta returnerar det första filnamnet på den aktuella sökvägen.
Dir Syntax
I VBA Editor kan du skriva "Dir (" för att se syntaxen för Dir -funktionen:
Dir -funktionen innehåller 2 argument:
Sökvägsnamn: [Valfritt] Ett stränguttryck som representerar en katalog/mapp/enhet.
Attribut: [Valfritt] Anger filattribut. Om den utelämnas returnerar filer som matchar söknamn men som inte har några attribut.
De Attribut argumentinställningar är:
| Konstant | Värde | Beskrivning |
|---|---|---|
| vbNormalt | 0 | (Standard) Anger filer utan attribut. |
| vbReadOnly | 1 | Anger skrivskyddade filer utöver filer utan attribut. |
| vbHidden | 2 | Anger dolda filer utöver filer utan attribut. |
| vbSystem | 4 | Anger systemfiler utöver filer utan attribut. Finns inte på Macintosh. |
| vbVolume | 8 | Anger volymetikett; om något annat attribut angesvbVolume ignoreras. Finns inte på Macintosh. |
| vbDirectory | 16 | Anger kataloger eller mappar utöver filer utan attribut. |
| vbAlias | 64 | Angivet filnamn är ett alias. Finns endast på Macintosh. |
VBA -programmering | Kodgenerator fungerar för dig!
Exempel på Excel VBA Dir -funktion
För att lista mappar och filer på C -enhet kan du använda följande kod.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim filnamn som strängDim fullName som strängDim rng As RangeDim i As IntegerStäll in rng = Range ("A1")fileName = Dir ("C: \", vbDirectory)jag = 1DofullName = "C: \" och filnamnrng.Offset (i, 0) = filnamnrng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng.Offset (i, 3) = GetAttr (fullName)fileName = DirOm fileName = "" Avsluta Göri = i + 1SlingaAvsluta Sub |
Resultatet blir liknande med följande.
VBA Dir -funktion i Access VBA
VBA Dir -funktionen fungerar i Access VBA på samma sätt som i Excel VBA.
| 123456789 | Funktion CreateDirectory (strP As String) Som BooleanOm Len (Dir (strP, vbDirectory)) = 0 DåMkDir strPAvsluta omCreateDirectory = TrueAvsluta funktionslut:CreateDirectory = FalseAvsluta funktion |
