>Has anyone already written anything which copies a directory structure but only copies those files that have changed? I have a utility that does that, but I want to do something specific to VFP files. For example, if the file is part of a form and either the .sct or .scx have changed, I want to copy both the .sct and .scx. The same for reports and classes, et al.
>
>I have another workstation with a mapped drive letter that I need to have a copy of a directory and its subdirectories on. I don't want to copy every file in the entire directory though if not necessary.
>
>I could write something, but I think it has already been done...

CopyDiff([c:\Project folder],[d:\back up folder])



FUNCTION CopyDiff(lcSourceFolder, lcTargetFolder)
         LOCAL laFiles[1], lnFor, lnFiles, lbCopyFile
         LOCAL laFilesTrg[1], lnAscan, lnFilesTrg, lcNewExt
         LOCAL lcFileSource, lcFileTarget
         lcSourceFolder = ADDBS(lcSourceFolder)
         lcTargetFolder = ADDBS(lcTargetFolder)

         lnFiles = ADIR(laFiles, lcSourceFolder+[*.*])
                   ADIR(laFilesTrg,lcTargetFolder)
         FOR lnFor = 1 TO lnFiles
             IF NOT LEFT(laFiles[lnFor,1],2) == [.]
                IF [D] $ UPPER(laFiles[lnFor,5])
                   *** Folder copy it
                   TRY
                     md (lcTargetFolder+laFiles[lnFor,1])
                   CATCH
                   ENDTRY
                   CopyDiff(lcSourceFolder+laFiles[lnFor,1], lcTargetFolder+laFiles[lnFor,1])
                ELSE
                   lbCopyFile = .t.
                   lcFileSource = lcSourceFolder+laFiles[lnFor,1]
                   lcFileTarget = lcTargetFolder+laFiles[lnFor,1]
                   IF lnFilesTrg # 0
                      *** If lnFilesTrg  == 0 then there is 
                      *** NO files in that folder, so you don't have to care about EXT, all files will be copied there
 
                      lnAscan = ASCAN(laFilesTrg,laFiles[lnFor,1],1,-1,1,1,11)
                      IF lnAscan > 0
                         IF laFilesTrg[lnAscan,3] # laFiles[lnFor,3] OR;
                            laFilesTrg[lnAscan,4] # laFiles[lnFor,4]
                            IF JUSTEXT(laFiles[lnFor,1]) $ [VCX VCT SCX SCT FRX FRT DBF DBT]
                               lcNewExt = LEFT(JUSTEXT(laFiles[lnFor,1]),2)+[*]
                               lcFileSource = FORCEEXT(lcSourceFolder+laFiles[lnFor,1],lcNewExt)
                               lcFileTarget = FORCEEXT(lcTargetFolder+laFiles[lnFor,1],lcNewExt)
                            ENDIF
                         ELSE
                            lbCopyFile = .f.
                         ENDIF
                      ENDIF
                   ENDIF
                   IF lbCopyFile
                      COPY FILE (lcFileSource) TO (lcFileTarget)
                   ENDIF
                ENDIF
             ENDIF
         ENDFOR

not tested at all. I wrote it directly here :-)