Hi Charel,

I've tried this code below rather than using Scripting Runtime:

sub Dirof()
dim mydir, r
mydir = dir("c:*.bmp")
do while mydir < ""
r = r+1
cells(r,1).value = mydir
mydir = dir
loop
end Sub

you can do by code above unless you want to get sometingelse
that can't be performed by dir() function, like retrieving filetype
maybe...

Regards,

Halim


vqthomf menuliskan:
Hi I am using the script runtime to find and load file names into a listview
control, what I would like to do is be able to use a criteria like "bmp",
"gif", "jpg", "tif", "wmf" instead of the user selecting singly.
Any help would be much appreicated
Charels