Hello World

i'm having a small problem with the DIR Command.
Basically i'm running my component in Com+ using MSMQ QC. Running multiple instances of the same component each querying diffient directories for existing files, when it finds a file it does some basic processing. The the thing is the DIR command is failing at all sorts or strange times. When running sequentually it works fine. i woundered if anyone has any ideal why? or maybe my code is wronge (please see below) or if they had another way of doing this, i know about the FileSystem Object and that was going to be my next move, but is there not a lower level win32 call i could use to do this.

Please Help
Thanks Allot
Mark

The basic's of my code.


sFileName = Dir(InputDirectory, vbNormal)
Do While sFileName <> ""
ProcessFile sFileName
sFileName = Dir
Loop