Good point,
It must be:

IF NOT LEFT(laFiles[lnFor,1],1) == [.]

No need to TRIM.

And I use LEFT(,1_ because I don't want to check for both - [.] and [..] :-)


>>Thanks Borislav, I'll try it... :o)
>>
>>
>>
>>>>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 :-)
>
>This line looks wrong to me:
>
>IF NOT LEFT(laFiles[lnFor,1],2) == [.]
>
>shouldn't it be:
>
>IF NOT LEFT(laFiles[lnFor,1],1) == [.]
>
>Haven't tried the code.
>
>I think what I usually use is:
>
>IF !(TRIM(laFiles[lnFor,1]) == [.] .OR. TRIM(laFiles[lnFor,1]) == [..])