Kevin,
I copied the snippet of the code that I changed. My memory failded me. The code was in QSTART.PRG, not the unitlity.prg.
It was in the COPYDIR procedure:
=CheckDir(tcTargetDir, toFoxTools)
lnNumFiles = ADIR(laFiles, lcSourceDir + '*.*', 'D')
IF lnNumFiles > 0
FOR lnFile = 1 TO lnNumFiles
*-- Ignore current and parent directories
IF LEFT(laFiles[lnFile, 1],1) = '.' <------------------------------- Here is the change.
LOOP
ENDIF
*-- Check if subdirectory
IF 'D' $ laFiles[lnFile, 5]
*-- Use recursion to create sub-directories
=CopyDir(lcSourceDir + laFiles[lnFile, 1], ;
lcTargetDir + laFiles[lnFile, 1], ;
toFoxTools)
ELSE
*-- Copy the file
lcSourceFile = lcSourceDir + laFiles[lnFile, 1]
lcTargetFile = lcTargetDir + laFiles[lnFile, 1]
COPY FILE (lcSourceFile) TO (lcTargetFile)
ENDIF
ENDFOR
ENDIF
Jerry
Nebraska Dept of Revenue