Spisie treści
Reż. Opis
Zwraca pierwszą nazwę pliku, która odpowiada podanej ścieżce i atrybutom.
Proste przykłady dir
| 1 | Katalog MsgBox("") |
To zwróci pierwszą nazwę pliku w bieżącej ścieżce.
Dir składnia
W edytorze VBA możesz wpisać „Dir (”, aby zobaczyć składnię funkcji Dir:
Funkcja Dir zawiera 2 argumenty:
Nazwa ścieżki: [Opcjonalnie] Wyrażenie tekstowe reprezentujące katalog/folder/dysk.
Atrybut: [Opcjonalnie] Określa atrybuty pliku. Jeśli pominięty, zwraca pliki, które pasują do nazwy ścieżki, ale nie mają atrybutów.
ten Atrybut ustawienia argumentów to:
| Stały | Wartość | Opis |
|---|---|---|
| vbNormal | 0 | (Domyślnie) Określa pliki bez atrybutów. |
| vbTylko do odczytu | 1 | Określa pliki tylko do odczytu oraz pliki bez atrybutów. |
| vbHidden | 2 | Określa pliki ukryte oprócz plików bez atrybutów. |
| vbSystem | 4 | Określa pliki systemowe oprócz plików bez atrybutów. Niedostępne na komputerach Macintosh. |
| vbVolume | 8 | Określa etykietę woluminu; jeśli określono jakikolwiek inny atrybut,vbVolume jest ignorowane. Niedostępne na komputerach Macintosh. |
| vbDirectory | 16 | Określa katalogi lub foldery oprócz plików bez atrybutów. |
| vbAlias | 64 | Podana nazwa pliku to alias. Dostępne tylko na komputerach Macintosh. |
Programowanie VBA | Generator kodu działa dla Ciebie!
Przykłady funkcji Excel VBA Dir
Aby wyświetlić listę folderów i plików na dysku C, możesz użyć następującego kodu.
| 123456789101112131415161718192021222324 | Sub Dir_Przykład()Dim nazwapliku jako ciągDim fullName As StringDim rng As RangeDim i jako liczba całkowitaUstaw rng = Zakres("A1")fileName = Dir("C:\", vbDirectory)ja = 1RobićfullName = "C:\" i nazwa_plikurng.Offset(i, 0) = nazwa_plikurng.Offset(i, 1) = FileDateTime (pełna nazwa)rng.Offset(i, 2) = FileLen(pełna nazwa)rng.Offset(i, 3) = GetAttr(pełna nazwa)nazwa_pliku = katalogIf fileName = "" Następnie zakończ Wykonajja = ja + 1PętlaNapis końcowy |
Wynik będzie podobny z poniższym.
Funkcja VBA Dir w programie Access VBA
Funkcja VBA Dir działa w programie Access VBA w taki sam sposób, jak w programie Excel VBA.
| 123456789 | Funkcja CreateDirectory(strP As String) As BooleanJeśli Len(Dir(strP, vbDirectory)) = 0 WtedyMkDir strPZakończ, jeśliUtwórz katalog = PrawdaWyjdź z funkcjikończący się:Utwórz katalog = FałszKoniec funkcji |
