Elenco File in visual basic

[anflam]

Salve.
Ho il seguente problema.
Data una directory
esempio : "c:\pippo"
devo ricavare il numero dei file di tipo .exe presenti in questa directory e il nome di ogni file
come posso fare?

Grazie

[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

[anflam]

non funziona perche'?
aiutooooooooooo

[Mabi]

Perchè c'è l'intestazione della Function sbagliata e nel ciclo bisogna richiamare la Dir senza parametri.

Dim FileName As String
Dim ContTot As Integer

FileName = Dir("C:\Pippo\*.exe", vbArchive Or vbHidden Or _
               vbNormal Or vbReadOnly Or vbSystem)
Do Until FileName = ""
  ContTot = ContTot + 1
  MsgBox FileName
  FileName = Dir
Loop
MsgBox CStr(ContTot)