Dir Descrizione
Restituisce il primo nome file che corrisponde al percorso e agli attributi specificati.
Esempi di directory semplici
| 1 | MsgBox Dir("") |
Ciò restituirà il primo nome di file nel percorso corrente.
Sintassi directory
Nell'editor VBA, puoi digitare "Dir(" per vedere la sintassi per la funzione Dir:
La funzione Dir contiene 2 argomenti:
Nome percorso: [Facoltativo] Un'espressione stringa che rappresenta una directory/cartella/unità.
Attributo: [Facoltativo] Specifica gli attributi del file. Se omesso, restituisce i file che corrispondono al percorso ma non hanno attributi.
Il Attributo le impostazioni degli argomenti sono:
| Costante | Valore | Descrizione |
|---|---|---|
| vbnormale | 0 | (Predefinito) Specifica i file senza attributi. |
| vbReadOnly | 1 | Specifica i file di sola lettura oltre ai file senza attributi. |
| vbHidden | 2 | Specifica i file nascosti oltre ai file senza attributi. |
| vbSystem | 4 | Specifica i file di sistema oltre ai file senza attributi. Non disponibile su Macintosh. |
| vbVolume | 8 | Specifica l'etichetta del volume; se viene specificato qualsiasi altro attributo,vbVolume viene ignorato. Non disponibile su Macintosh. |
| vbDirectory | 16 | Specifica directory o cartelle oltre ai file senza attributi. |
| vbAlias | 64 | Il nome file specificato è un alias. Disponibile solo su Macintosh. |
Programmazione VBA | Il generatore di codice funziona per te!
Esempi di funzione Dir VBA di Excel
Per elencare le cartelle e i file sull'unità C, puoi utilizzare il seguente codice.
| 123456789101112131415161718192021222324 | Sub Dir_Esempio()Dim fileName As StringDim fullName As StringDim rng come intervalloDim i As IntegerImposta rng = Intervallo ("A1")nomefile = Dir("C:\", vbDirectory)io = 1FarefullName = "C:\" & nomefilerng.Offset(i, 0) = nomefilerng.Offset(i, 1) = FileDateTime(fullName)rng.Offset(i, 2) = FileLen(fullName)rng.Offset(i, 3) = GetAttr(fullName)fileName = DirSe fileName = "" Quindi esci Faiio = io + 1Ciclo continuoFine sottotitolo |
Il risultato sarà simile al seguente.
Funzione Dir VBA in Access VBA
La funzione VBA Dir funziona in Access VBA allo stesso modo di Excel VBA.
| 123456789 | Funzione CreateDirectory(strP As String) As BooleanSe Len(Dir(strP, vbDirectory)) = 0 AlloraMkDir strPFinisci seCreateDirectory = TrueEsci dalla funzionefine:CreateDirectory = FalseFine funzione |
