Alle filer i en mappe

Den skulle have været i Visual Basic

Men jeg fandt selv et svar

sub command1_click()
Dim strDirectory as string

strDirectory= dir("c:\MyDir\*.*")

while strDirectory<>""
      text1.text= text1.text  & vbcrlf & strDirectory
      strDirectory= dir()
wend

end sub