-------------------------------------------------------------------------------------
                      [BUG/PRB.] VFP 9.0 FIX - ALWAYS COPY FILES ON DISK IN THE COPY FILE COMMAND
                                September 2024
                 -------------------------------------------------------------------------------------
                                     CCB



1. BUG:

     In vfp9 (and vfp6, vfp7, vfp8), if the file on disk exists and the file in the compiled executable file does not exist,
     it copies the file on disk to the destination file,
     if the file on disk exists and the file in the compiled executable file exists,
     it copies the file in the compiled executable file to the destination file.

     In VFP Advanced, if we enable always copying files on disk in the COPY FILE command,
     if the file on disk exists, it always copies the file on disk to the destination file.


2. CAUSE:

     There are some BUGs in the following code.


3. RESOLUTION:

     We can write some code to fix the BUG.

     Label6d6c7f ::
             pushd 0100h                                                     ;0x006d6c7f :        6800010000
             lea eax ,  dword ptr [ ebp - 52 ]                               ;0x006d6c84 :        8d45cc
             push eax                                                        ;0x006d6c87 :        50
             lea eax ,  dword ptr [ ebp - 48 ]                               ;0x006d6c88 :        8d45d0
             push eax                                                        ;0x006d6c8b :        50
             lea eax ,  dword ptr [ ebp - 16 ]                               ;0x006d6c8c :        8d45f0
             push eax                                                        ;0x006d6c8f :        50
             push edi                                                        ;0x006d6c90 :        57
             push ebx                                                        ;0x006d6c91 :        53
             call Fun42cd23                                                  ;0x006d6c92 :        e88c60d5ff


     ;
     ;                 --------------------------------------------------------------------------
     ;                      VFP 9.0 FIX - ALWAYS COPY FILES ON DISK IN THE COPY FILE COMMAND
     ;                                September 2024
     ;                 --------------------------------------------------------------------------
     ;                                     CCB
     ;
     ; Always copy files on disk in the COPY FILE command.
     ;
     ; 2024/9/9, by ccb
     ;

             cmp dword ptr vfpa_sys9169_data,00h
             je Label6d6c97
             IF VFPA_VERSION GE 101
             cmp dword ptr [ esp + 2ECh ] , offset Label6d6fd3 ;; Fun6d6e05 .. ; proc near
             jne Label6d6c97
             ELSE
             cmp dword ptr [ esp + 2DCh ] , offset Label6d6fd3 ;; Fun6d6e05 .. ; proc near
             jne Label6d6c97
             ENDIF
             xor eax , eax


     Label6d6c97 ::
             test eax , eax                                                  ;0x006d6c97 :        85c0
             jne Label6d6ce6                                                 ;0x006d6c99 :        754b
             lea eax ,  dword ptr [ ebp + 0F8h ]                             ;0x006d6c9b :        8d85f8000000
             push eax                                                        ;0x006d6ca1 :        50
             push edi                                                        ;0x006d6ca2 :        57
             call  FindFirstFileA                              ;0x006d6ca3 :        ff152c719100
             push eax                                                        ;0x006d6ca9 :        50
             call  FindClose                                   ;0x006d6caa :        ff1528719100
             push ebx                                                        ;0x006d6cb0 :        53
             push esi                                                        ;0x006d6cb1 :        56
             push edi                                                        ;0x006d6cb2 :        57
             call  CopyFileA                                   ;0x006d6cb3 :        ff1524719100
             test eax , eax                                                  ;0x006d6cb9 :        85c0
             jne Label6d6cc6                                                 ;0x006d6cbb :        7509
             pushd 066h                                                      ;0x006d6cbd :        6a66
             mov ecx , esi                                                   ;0x006d6cbf :        8bce
             call Fun44d388                                                  ;0x006d6cc1 :        e8c266d7ff

     Label6d6cc6 ::
             mov  eax , dword ptr [ ebp + 0F8h ]                             ;0x006d6cc6 :        8b85f8000000
             test al , 01h                                                   ;0x006d6ccc :        a801
             je Label6d6cdb                                                  ;0x006d6cce :        740b
             and eax , 0FFFFFFFEh                                            ;0x006d6cd0 :        83e0fe
             push eax                                                        ;0x006d6cd3 :        50
             push esi                                                        ;0x006d6cd4 :        56
             call  SetFileAttributesA                          ;0x006d6cd5 :        ff1520719100

     Label6d6cdb ::
             mov  eax , dword ptr [ ebp + 0118h ]                            ;0x006d6cdb :        8b8518010000
             jmp Label6d6ded                                                 ;0x006d6ce1 :        e907010000


4. APPLIES TO:

     VFP 6.0.8167.0
     VFP 6.0.8961.0 (SP5)

     VFP 7.0.0.9262
     VFP 7.0.0.9465 (SP1)

     VFP 8.0.0.2521
     VFP 8.0.0.3117 (SP1)

     VFP 9.0.0.2412
     VFP 9.0.0.3504 (SP1)
     VFP 9.0.0.4611 (SP2)
     VFP 9.0.0.5015 (SP2)
     VFP 9.0.0.5411 (SP2)
     VFP 9.0.0.5721 (SP2)
     VFP 9.0.0.5815 (SP2)
     VFP 9.0.0.6303 (SP2)
     VFP 9.0.0.6602 (SP2)
     VFP 9.0.0.7423 (SP2)

     The bug has been fixed in VFP Advanced.

     IMPORTANT NOTE:
     In vfp9 (and vfp6, vfp7, vfp8), we can use the EXECSCRIPT() function to execute the COPY FILE command to copy files on disk, for example,
     =EXECSCRIPT("COPY FILE test.txt TO test2.txt") && it always copies the file test.txt on disk to the destination file test2.txt.
     and then there is no the bug.

     In Visual FoxPro all versions, we can use the FILETOSTR() function and the STRTOFILE() function to copy files in the compiled executable file, for example,
     =STRTOFILE(FILETOSTR("test.txt),"test2.txt") && it can copy the file test.txt in the compiled executable file (or on disk) to the destination file test2.txt.


5. REFERENCE WEBSITES:

     1, baiyujia.com:
     http://www.baiyujia.com
     http://www.baiyujia.com/vfpdocuments/f_vfp9fix346.asp

     2, foxite.com:
     https://www.foxite.com/archives/copy-file-from-project-to-file-0000144448.htm
     https://www.foxite.com/archives/vfp-bug-or-me-0000250008.htm


6. OTHER:

     For reference only, there is no guarantees.

     Any questions or suggestions, please send me an email at ccb2000@163.com.