Как на vb 2008 .Net можно узнать, файл ли это или папка?
tmpText = Dir(PathDir, FileAttribute.Directory)
Do Until tmpText = ""
If GetAttr(PathDir & tmpText) = FileAttribute.Directory Then
frmGen.LVLeft.Items.Add(tmpText).SubItems.Add("<DIR>")
Else
frmGen.LVLeft.Items.Add(tmpText).SubItems.Add(GetFileSize(PathDir & tmpText, 0))
End If
tmpText = Dir()
Loop
Пишу файловый менеджер ради удовольствия)) Сканирую папку Dir'ом, потом через GetAttr смотрю, папка ли это или файл и соответственно че то делаю. Но дело в том, что по ветке Else идут и папки, которые скрыты и системные... Как просто узнать папка это или нет? а то перебирать все варианты типа : папка или скрытая папка или системная папка.... меня не прёт.
Что можно использоваьть вместо GetAttr, чтоб узнать папка ли это?тупо по поиску расширения тоже не предлагать, ибо тупо)))
Do Until tmpText = ""
If GetAttr(PathDir & tmpText) = FileAttribute.Directory Then
frmGen.LVLeft.Items.Add(tmpText).SubItems.Add("<DIR>")
Else
frmGen.LVLeft.Items.Add(tmpText).SubItems.Add(GetFileSize(PathDir & tmpText, 0))
End If
tmpText = Dir()
Loop
Пишу файловый менеджер ради удовольствия)) Сканирую папку Dir'ом, потом через GetAttr смотрю, папка ли это или файл и соответственно че то делаю. Но дело в том, что по ветке Else идут и папки, которые скрыты и системные... Как просто узнать папка это или нет? а то перебирать все варианты типа : папка или скрытая папка или системная папка.... меня не прёт.
Что можно использоваьть вместо GetAttr, чтоб узнать папка ли это?тупо по поиску расширения тоже не предлагать, ибо тупо)))
Цитата: NextTime
Но дело в том, что по ветке Else идут и папки, которые скрыты и системные... Как просто узнать папка это или нет?
Комбинируйте значения FileAttribute при передаче значений Dir-у. Их там много ;)
Типа FileAttribute.vbDirectory or FileAttribute.vbSystem
Цитата: hardcase
Комбинируйте значения FileAttribute при передаче значений Dir-у. Их там много ;)
Типа FileAttribute.vbDirectory or FileAttribute.vbSystem
Типа FileAttribute.vbDirectory or FileAttribute.vbSystem
я ведь писал - "а то перебирать все варианты типа : папка или скрытая папка или системная папка.... меня не прёт."
Я нашел другой выход!!!
For Each mdlVariables.tmpText In IO.Directory.GetDirectories(frmGen.txtPath1.Text)
и
For Each mdlVariables.tmpText In IO.Directory.GetFiles(frmGen.txtPath1.Text)
тогда не надо узнавать че это(не использовать Dir())
а еще можно с помощью Directory.Exists и File.Exists