FileName = Dir (плохо работает)

[v-adix]

как с помощью Dir() получить список каталогов?
Не так?

dim dirname as string
dirname = dir("c:\*.*", vbDirectory)
while filename <> ""
if getattr("c:\" & filename) = vbDirectory Then
...........
end if
filename = Dir
wend

Так некоторые каталоги не читаются! Как по другому с помощью Dir?
Не предлагайте FSO! можно и API (хотя в API Guide я ничего не нашёл)

[skiperski]

Во-первых, это

Код: Выделить всё

If (GetAttr("c:\" & FileName) And vbDirectory) = vbDirectory Then

а, во-вторых, объявлена переменная DirName, а используется FileName.
Используй декларацию Option Explicit.

[v-adix]

извиняюсь за filename
а что мне даст option explicit? это мне надо весь код перерыть чтобы программа работала!

[skiperski]

а что мне даст option explicit?

См. http://bbs.vbstreets.ru/viewtopic.php?p=21133#21133

это мне надо весь код перерыть чтобы программа работала!

Любишь кататься - люби и саночки возить. (народная мудрость)

[Mikle]

Когда мне нужен список папок либо файлов, я, как правило, использую невидимый DirListBox либо FileListBox. Может не совсем оптимально, зато просто и, кстати, легко обновляется.

Чтобы понять, что дает option explicit, надо им немного попользоваться.

[_NeoN_]

Писать без Option Explicit не есть хорошо, потому что бывает просто кнопку вроде нажал, а на самом деле не нажал и не заметил и написал
Variable=vaiable+1
и все... потом будет пару часов(если прога большая) ошибку искать, а с Option explicit VB стразу тебе ошибку выдаст...

[v-adix]

Следующие проекты попробую с option explicit. Придётся потрудиться маленько над переменными...