Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Clarification
Message
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Title:
Miscellaneous
Thread ID:
00062306
Message ID:
00062328
Views:
30
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
Previous
Reply
Map
View

Click here to load this message in the networking platform