Elenco File in visual basic

[DeBe99]

basta usare lafunzione dir in un ciclo

Public Sub ContaExe(Path as string) as integer
  dim cnt as integer
  dim File as string
  cnt=0
  file=Dir(path & "\*.exe")
  while file<>""
     cnt=cnt+1
     file=Dir(path & "\*.exe")
  wend
  ContaExe=cnt
Exit Sub