Описание на Dir
Връща първото име на файл, което съвпада с посоченото име на път и атрибути.
Прости примери за Dir
| 1 | MsgBox Dir ("") |
Това ще върне първото име на файла по текущия път.
Dir Синтаксис
В редактора на VBA можете да въведете „Dir (“, за да видите синтаксиса за функцията Dir:
Функцията Dir съдържа 2 аргумента:
Име на път: [Незадължително] Низов израз, представляващ директория/папка/устройство.
Атрибут: [Незадължително] Определя атрибутите на файла. Ако е пропуснато, връща файлове, които съвпадат с името на пътя, но нямат атрибути.
The Атрибут настройките на аргументите са:
| Постоянен | Стойност | Описание |
|---|---|---|
| vbНормален | 0 | (По подразбиране) Указва файлове без атрибути. |
| vbReadOnly | 1 | Указва файлове само за четене в допълнение към файлове без атрибути. |
| vbСкрит | 2 | Указва скрити файлове в допълнение към файлове без атрибути. |
| vbSystem | 4 | Указва системни файлове в допълнение към файлове без атрибути. Не се предлага на Macintosh. |
| vbVolume | 8 | Определя етикета на обема; ако е посочен друг атрибут,vbVolume се игнорира. Не се предлага на Macintosh. |
| vbDirectory | 16 | Указва директории или папки в допълнение към файлове без атрибути. |
| vbAlias | 64 | Посоченото име на файл е псевдоним. Предлага се само на Macintosh. |
VBA програмиране | Code Generator работи за вас!
Примери за Excel VBA Dir функция
За да изброите папките и файловете на C устройство, можете да използвате следния код.
| 123456789101112131415161718192021222324 | Sub Dir_Example ()Dim fileName As StringDim fullName As StringDim rng As RangeDim i As IntegerЗадайте rng = Обхват ("A1")fileName = Dir ("C: \", vbDirectory)i = 1НаправетеfullName = "C: \" & fileNamerng.Offset (i, 0) = fileNamerng.Offset (i, 1) = FileDateTime (пълно име)rng.Offset (i, 2) = FileLen (пълно име)rng.Offset (i, 3) = GetAttr (пълно име)fileName = РежIf fileName = "" След това излезте от Doi = i + 1ЦикълEnd Sub |
Резултатът ще бъде подобен със следното.
VBA Dir функция в Access VBA
Функцията VBA Dir работи в Access VBA по същия начин, както в Excel VBA.
| 123456789 | Функция CreateDirectory (strP As String) Като булеваАко Len (Dir (strP, vbDirectory)) = 0 ТогаваMkDir strPКрай АкоCreateDirectory = ИстинаИзлезте от функциятазавършване:CreateDirectory = FalseКрайна функция |
