I been messing with Dir$ for Last half hour can't make it do anything but return first file name: ie This code strDirName is always equal to "DataFileHistory.txt" which is the first file in the SE4 base direcottoy.
strDirName = Dir$(strBaseDir + "\")
strDirName = Dir$()
strDirName = Dir$()