Узнать какие файлы лежат в той или иной папке - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы