Узнать какие файлы лежат в той или иной папке - VB
Формулировка задачи:
Доброго всем времени суток, появилась у меня необходимость узнать: что лежит в той или другой папке.
Честно говоря пока не знаю как реализовать, кажется, что надо как-то крутить с этим:
Может подскажите какая функция существует для таких дел. Большое спасибо
Решение задачи: «Узнать какие файлы лежат в той или иной папке»
textual
Листинг программы
Sub ShowFlist() Dim Flist() myDir$ = "ÏîëГ*îå_èìÿ_äèðåêòîðèè_Г±_áóêâîé_äèñêГ*" cF$ = Dir$(myDir$ & "\*.*", vbReadOnly Or vbHidden Or vbSystem) ' ГґГ*éëû Г± ëþáûìè Г*òðèáóòГ*ìè Do While cF$ <> vbNullString ReDim Preserve Flist(0 To ptrF%) Flist(ptrF&) = cF$ ptrF& = ptrF& + 1 cF$ = Dir$() Loop If ptrF& <> 0 Then MsgBox "Total files: " & ptrF& & vbLf & Join(Flist, vbLf) Else: MsgBox "There are no files matching your criteria." End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д