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