Invalid procedure call or agument on Dir function

[rewdee]

The code is nearly identical to that from the help file
but I'm getting an Invalid procedure call or argument
(error number 5) when I'm iterating through directories
with this code:
=========================================================

MyPath = sFileStart
'Retrieve the first entry.
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> &quot;&quot;    
    If MyName <> &quot;.&quot; And MyName <> &quot;..&quot; Then        
        If (GetAttr(MyPath & MyName) And vbDirectory) = 
vbDirectory Then
            AddFolder lngShareID, lngPrtID, MyName, sPath, 
sMask
        End If
    End If
    MyName = Dir ' Get next entry.
Loop

=========================================================
Where AddFolder is a procedure but the exception occurs in
the calling Dir function to get the next directory
(MyName=Dir). Does anyone have any ideas why this
exception is occurring and any workarounds?

Thanks
Bill N

 

[JohnYingling]

Try
Myname = Dir()

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[rewdee]

Thanks John for the reply but I still get the error.

Rewdee

 

[JohnYingling]

"is nearly identical ". Try commeting out Addfolder call.
I assume you add a folder which probably "invalidates" the directory that Dir is working on.

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[rewdee]

Oops, I figured it out. You are right John, An error is occuring in a procedure in AddFolder(which adds the name of the folder and its parent to a table). There is no error handling hence the error is being raised in my FindFolders routine.

Thanks,
Rewdee