Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Clarification
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
The Mere Mortals Framework
Titre:
Divers
Thread ID:
00062306
Message ID:
00062328
Vues:
25
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform