René Nyffenegger's collection of things on the web
René Nyffenegger on Oracle - Most wanted - Feedback -
 

List files in directory [Excel macro]

sub ListFilesInDir

  dim cur_filename$

  cur_filename$ = dir("C:\temp\*.sql")

  do while cur_filename$ <> ""

    msgbox(cur_filename$)
    cur_filename$ = dir
  loop

end sub