Right now it looks like my problem has something to do with strPath = strPath & Format(iFolderCount, "0000") and the Open strPath & "\" & RTrim(rst!productcode) & ".txt" For Output As #1 . After removing the str = path & Format it ran but bumped up against the file limit. But when I put it...