Oh I'm so sorry - FixDir is a function which fixes the problem that the return value of the Dir() function (when found a folder) doesn't include a "\" on the right. Function:

---------------------
Function FixDir(Folder)

Dim T

If Right(Folder, 1) <> "\" Then T = "\"

FixDir = Folder & T

End Function
---------------------

I agree my codings are not well viewable, it's hard to find out what's happening, isn't it ? When you need help, I'll be there. Gotta go now (15-3-'01) so I'll answer tomorrow.


Quintonir