| Вопрос: Увидетиь не виданное.. | Добавлено: 19.10.04 22:49 |
Автор вопроса:  Apache2 | ICQ: 162823477 |
|
Ситуация такая...файловая система NTFS, WinXP..
я хочу получить названия всех папок в директории: С:\WINDOWS\ Раньше я использовал элемент Dir1.Path="D:\WINDOWS\" Он конечно выдаёт список папочек...но как оказалось не всех!!!.. Скрытые папки он видеть упорно не хочет.. хотя в самой операционке было настроено отображать скрытые файлы и папки... Я копался в настройке элемента Dir1...но там нету такого свойства...чтобы разрешить показ скрытых папок.. в отличии от элемента File1.hidden=true Что же делать? как получить названия скрытых папок? эксперименты с методом Dir() - тоже не принесли результаты.. Есть ещё какие-нибудь способы? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  war ICQ: 288367795 Вопросов: 7 Ответов: 15 |
Профиль | | #1 | Добавлено: 20.10.04 04:16 |
API поюзай это всегда рульнее встроенных Dir-ов
 )))
|
||
|
Номер ответа: 2 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 20.10.04 08:27 |
|
Dir Function
See Also ChDir Function | CurDir Function Returns a string representing the name of a file, directory, or folder that matches a specified pattern or file attribute, or the volume label of a drive. Public Overloads Function Dir() As String -or- Public Overloads Function Dir( _ Optional ByVal PathName As String, _ Optional ByVal Attributes As FileAttribute = FileAttribute.Normal _ ) As String Parameters PathName Optional. String expression that specifies a file name, directory or folder name, or drive volume label. A zero-length string (""  is returned if
PathName is not found. Attributes Optional. Enumeration or numeric expression whose value specifies file attributes. If omitted, returns files that match PathName, but have no attributes. Settings The Attributes argument enumeration values are as follows: Value Constant Description Normal vbnormal Default. Specifies files with no attributes. ReadOnly vbReadOnly Specifies read-only files in addition to files with no attributes. Hidden vbHidden Specifies hidden files in addition to files with no attributes. System vbSystem Specifies system files in addition to files with no attributes. Volume vbVolume Specifies volume label; if any other attribute is specified, vbVolume is ignored. Directory vbDirectory Specifies directories or folders in addition to files with no attributes. Archive vbArchive File has changed since last backup. Alias vbAlias File has a different name. Note These enumerations are specified by the Visual Basic language and can be used anywhere in your code in place of the actual values. Remarks The Dir function supports the use of multiple-character (*) and single-character (?) wildcards to specify multiple files. You must supply a PathName the first time you call the Dir function. Subsequent calls to the Dir function may be made with no parameters to retrieve the next item. Example This example uses the Dir function to check if certain files and directories exist. Dim MyFile, MyPath, MyName ' Returns "WIN.INI" 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, including files 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. ' Use bitwise comparison to make sure MyName is a directory. If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then ' Display entry only if it's a directory.  ebug.WriteLine(MyName)
End If MyName = Dir() ' Get next entry. Loop See Also ChDir Function | CurDir Function ---------------------------------------------------------------------------- ---- Send feedback to Microsoft © 2001 Microsoft Corporation. All rights reserved. |
||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 20.10.04 09:55 |
| Примеры -> ScanForFiles !!! | ||
Страница: 1 |