------------------------------------------------------------
[BUG/PRB.] VFP 9.0 FIX - COPY FILE COMMAND
January 2024
------------------------------------------------------------
CCB
1. BUG:
In vfp9 (and vfp6, vfp7, vfp8), the COPY FILE command always creates the destination file with a lower case file name.
In Windows operating system, we can use the file names with case insensitive,
for example, the file name ABC.TXT is the same as the file name abc.txt.
In other operating systems such as Unix and Linux, we use the file names with case sensitive,
for example, the file name ABC.TXT is not the same as the file name abc.txt, they are two different file names.
The bug was reported by Walther Neuhardt.
2. CAUSE:
There are some BUGs in the following code.
3. RESOLUTION:
We can write some code to fix the BUG.
Fun6d6e05 :: ; proc near
push ebp ;0x006d6e05 : 55
lea ebp , dword ptr [ esp + 0FFFFF8ACh ] ;0x006d6e06 : 8dac24acf8ffff
sub esp , 07DCh ;0x006d6e0d : 81ecdc070000
mov eax , dword ptr [ Data937090 ] ;0x006d6e13 : a190709300
push ebx ;0x006d6e18 : 53
push esi ;0x006d6e19 : 56
push edi ;0x006d6e1a : 57
mov dword ptr [ ebp + 0750h ] , eax ;0x006d6e1b : 898550070000
xor eax , eax ;0x006d6e21 : 33c0
xor edx , edx ;0x006d6e23 : 33d2
inc dword ptr [ Data9393ac ] ;0x006d6e25 : ff05ac939300
mov ecx , 090h ;0x006d6e2b : b990000000
lea edi , dword ptr [ ebp + 0404h ] ;0x006d6e30 : 8dbd04040000
rep stosd ;0x006d6e36 : f3ab
lea eax , dword ptr [ ebp + 02FCh ] ;0x006d6e38 : 8d85fc020000
push eax ;0x006d6e3e : 50
mov edi , offset Data93a8c0 ;0x006d6e3f : bfc0a89300
mov ebx , offset Data91aed0 ;0x006d6e44 : bbd0ae9100
mov dword ptr [ ebp - 36 ] , edx ;0x006d6e49 : 8955dc
mov dword ptr [ ebp - 32 ] , edx ;0x006d6e4c : 8955e0
mov byte ptr [ ebp + 02FCh ] , dl ;0x006d6e4f : 8895fc020000
call Fun52a205 ;0x006d6e55 : e8ab33e5ff
inc dword ptr [ Data9393ac ] ;0x006d6e5a : ff05ac939300
lea eax , dword ptr [ ebp + 01F4h ] ;0x006d6e60 : 8d85f4010000
push eax ;0x006d6e66 : 50
xor edi , edi ;0x006d6e67 : 33ff
mov byte ptr [ ebp + 01F4h ] , 00h ;0x006d6e69 : c685f401000000
call Fun52a205 ;0x006d6e70 : e89033e5ff
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
; mov dword ptr vfpa_copyfile_nottolower,01h
xor ebx , ebx ;0x006d6e75 : 33db
push ebx ;0x006d6e77 : 53
mov edi , 0105h ;0x006d6e78 : bf05010000
push edi ;0x006d6e7d : 57
lea edx , dword ptr [ ebp + 0404h ] ;0x006d6e7e : 8d9504040000
lea ecx , dword ptr [ ebp + 02FCh ] ;0x006d6e84 : 8d8dfc020000
call Fun43d389 ;0x006d6e8a : e8fa64d6ff
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
Label6d6e8e ::
; mov dword ptr vfpa_copyfile_nottolower,00h
Label6d6e8f ::
push ebx ;0x006d6e8f : 53
lea eax , dword ptr [ ebp + 0404h ] ;0x006d6e90 : 8d8504040000
push eax ;0x006d6e96 : 50
call Fun4156a2 ;0x006d6e97 : e806e8d3ff
test eax , eax ;0x006d6e9c : 85c0
je Label6d6ecb ;0x006d6e9e : 742b
pushd offset Data928494 ;0x006d6ea0 : 6894849200
push edi ;0x006d6ea5 : 57
lea esi , dword ptr [ ebp + 0404h ] ;0x006d6ea6 : 8db504040000
call Fun5557a3 ;0x006d6eac : e8f2e8e7ff
push ebx ;0x006d6eb1 : 53
push ebx ;0x006d6eb2 : 53
push ebx ;0x006d6eb3 : 53
push edi ;0x006d6eb4 : 57
mov eax , esi ;0x006d6eb5 : 8bc6
push eax ;0x006d6eb7 : 50
call Fun437e2a ;0x006d6eb8 : e86d0fd6ff
push eax ;0x006d6ebd : 50
mov edx , esi ;0x006d6ebe : 8bd6
lea ecx , dword ptr [ ebp + 02FCh ] ;0x006d6ec0 : 8d8dfc020000
call Fun42cc34 ;0x006d6ec6 : e8695dd5ff
Label6d6ecb ::
lea eax , dword ptr [ ebp + 02FCh ] ;0x006d6ecb : 8d85fc020000
push eax ;0x006d6ed1 : 50
lea eax , dword ptr [ ebp - 52 ] ;0x006d6ed2 : 8d45cc
push eax ;0x006d6ed5 : 50
call Fun434bcf ;0x006d6ed6 : e8f4dcd5ff
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
; mov dword ptr vfpa_copyfile_nottolower,01h
push ebx ;0x006d6edb : 53
push edi ;0x006d6edc : 57
lea edx , dword ptr [ ebp + 0644h ] ;0x006d6edd : 8d9544060000
lea ecx , dword ptr [ ebp + 01F4h ] ;0x006d6ee3 : 8d8df4010000
call Fun43d389 ;0x006d6ee9 : e89b64d6ff
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
Label6d6eed ::
; mov dword ptr vfpa_copyfile_nottolower,00h
Label6d6eee ::
push ebx ;0x006d6eee : 53
lea eax , dword ptr [ ebp + 0644h ] ;0x006d6eef : 8d8544060000
push eax ;0x006d6ef5 : 50
call Fun4156a2 ;0x006d6ef6 : e8a7e7d3ff
test eax , eax ;0x006d6efb : 85c0
je Label6d6f2a ;0x006d6efd : 742b
pushd offset Data928494 ;0x006d6eff : 6894849200
push edi ;0x006d6f04 : 57
lea esi , dword ptr [ ebp + 0644h ] ;0x006d6f05 : 8db544060000
call Fun5557a3 ;0x006d6f0b : e893e8e7ff
push ebx ;0x006d6f10 : 53
push ebx ;0x006d6f11 : 53
push ebx ;0x006d6f12 : 53
push edi ;0x006d6f13 : 57
mov eax , esi ;0x006d6f14 : 8bc6
push eax ;0x006d6f16 : 50
call Fun437e2a ;0x006d6f17 : e80e0fd6ff
push eax ;0x006d6f1c : 50
mov edx , esi ;0x006d6f1d : 8bd6
lea ecx , dword ptr [ ebp + 01F4h ] ;0x006d6f1f : 8d8df4010000
call Fun42cc34 ;0x006d6f25 : e80a5dd5ff
Label6d6f2a ::
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
; mov dword ptr vfpa_copyfile_nottolower,01h
xor esi , esi ;0x006d6f2a : 33f6
inc esi ;0x006d6f2c : 46
mov edi , esi ;0x006d6f2d : 8bfe
mov eax , esi ;0x006d6f2f : 8bc6
lea edx , dword ptr [ ebp + 0644h ] ;0x006d6f31 : 8d9544060000
lea ecx , dword ptr [ ebp + 01F4h ] ;0x006d6f37 : 8d8df4010000
call Fun43f2b9 ;0x006d6f3d : e87783d6ff
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
Label6d6f41 ::
; mov dword ptr vfpa_copyfile_nottolower,00h
Label6d6f42 ::
lea eax , dword ptr [ ebp + 01F4h ] ;0x006d6f42 : 8d85f4010000
push eax ;0x006d6f48 : 50
lea eax , dword ptr [ ebp - 48 ] ;0x006d6f49 : 8d45d0
push eax ;0x006d6f4c : 50
call Fun434bcf ;0x006d6f4d : e87ddcd5ff
lea edx , dword ptr [ ebp - 44 ] ;0x006d6f52 : 8d55d4
lea eax , dword ptr [ ebp + 0FFFFFF7Ch ] ;0x006d6f55 : 8d857cffffff
call Fun42c27f ;0x006d6f5b : e81f53d5ff
push ebx ;0x006d6f60 : 53
push eax ;0x006d6f61 : 50
call Fun42c2be ;0x006d6f62 : e85753d5ff
mov edi , eax ;0x006d6f67 : 8bf8
cmp edi , ebx ;0x006d6f69 : 3bfb
pop ecx ;0x006d6f6b : 59
pop ecx ;0x006d6f6c : 59
jne Label6d6ff3 ;0x006d6f6d : 0f8580000000
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
; mov dword ptr vfpa_copyfile_nottolower,01h
push ebx ;0x006d6f73 : 53
lea eax , dword ptr [ ebp + 0404h ] ;0x006d6f74 : 8d8504040000
push eax ;0x006d6f7a : 50
call Fun42c953 ;0x006d6f7b : e8d359d5ff
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
Label6d6f7f ::
; mov dword ptr vfpa_copyfile_nottolower,00h
Label6d6f80 ::
cmp eax , ebx ;0x006d6f80 : 3bc3
jne Label6d6ff3 ;0x006d6f82 : 756f
mov dword ptr [ ebp - 36 ] , esi ;0x006d6f84 : 8975dc
Label6d6f87 ::
lea eax , dword ptr [ ebp + 052Ch ] ;0x006d6f87 : 8d852c050000
push eax ;0x006d6f8d : 50
lea eax , dword ptr [ ebp - 52 ] ;0x006d6f8e : 8d45cc
push eax ;0x006d6f91 : 50
lea eax , dword ptr [ ebp + 0ECh ] ;0x006d6f92 : 8d85ec000000
push eax ;0x006d6f98 : 50
call Fun42c5c5 ;0x006d6f99 : e82756d5ff
lea eax , dword ptr [ ebp + 052Ch ] ;0x006d6f9e : 8d852c050000
push eax ;0x006d6fa4 : 50
lea ecx , dword ptr [ ebp + 0644h ] ;0x006d6fa5 : 8d8d44060000
call Fun75fa7f ;0x006d6fab : e8cf8a0800
lea eax , dword ptr [ ebp + 052Ch ] ;0x006d6fb0 : 8d852c050000
push eax ;0x006d6fb6 : 50
lea eax , dword ptr [ ebp - 48 ] ;0x006d6fb7 : 8d45d0
push eax ;0x006d6fba : 50
lea eax , dword ptr [ ebp - 28 ] ;0x006d6fbb : 8d45e4
push eax ;0x006d6fbe : 50
call Fun42c5c5 ;0x006d6fbf : e80156d5ff
lea eax , dword ptr [ ebp - 28 ] ;0x006d6fc4 : 8d45e4
push eax ;0x006d6fc7 : 50
lea eax , dword ptr [ ebp + 0ECh ] ;0x006d6fc8 : 8d85ec000000
push eax ;0x006d6fce : 50
call Fun6d6beb ;0x006d6fcf : e817fcffff
cmp eax , 0FFFFFFFEh ;0x006d6fd4 : 83f8fe
je Label6d6fe4 ;0x006d6fd7 : 740b
cmp eax , 0FFFFFFFDh ;0x006d6fd9 : 83f8fd
je Label6d6ff3 ;0x006d6fdc : 7415
inc dword ptr [ ebp - 32 ] ;0x006d6fde : ff45e0
mov dword ptr [ ebp - 40 ] , eax ;0x006d6fe1 : 8945d8
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
lea eax , dword ptr [ ebp - 28 ]
push eax
push eax
call MoveFileA
Label6d6fe4 ::
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
; mov dword ptr vfpa_copyfile_nottolower,01h
lea eax , dword ptr [ ebp + 0404h ] ;0x006d6fe4 : 8d8504040000
call Fun49cced ;0x006d6fea : e8fe5cdcff
;
; -------------------------------------------------
; VFP 9.0 FIX - COPY FILE COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the COPY FILE command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
Label6d6fee ::
; mov dword ptr vfpa_copyfile_nottolower,00h
Label6d6fef ::
test eax , eax ;0x006d6fef : 85c0
je Label6d6f87 ;0x006d6ff1 : 7494
Label6d6ff3 ::
lea eax , dword ptr [ ebp - 44 ] ;0x006d6ff3 : 8d45d4
push eax ;0x006d6ff6 : 50
lea eax , dword ptr [ ebp + 0FFFFFF7Ch ] ;0x006d6ff7 : 8d857cffffff
call Fun42d200 ;0x006d6ffd : e8fe61d5ff
lea esi , dword ptr [ ebp + 0404h ] ;0x006d7002 : 8db504040000
call Fun43e393 ;0x006d7008 : e88673d6ff
cmp edi , ebx ;0x006d700d : 3bfb
je Label6d7018 ;0x006d700f : 7407
mov ecx , edi ;0x006d7011 : 8bcf
call Fun544742 ;0x006d7013 : e82ad7e6ff
Label6d7018 ::
cmp dword ptr [ ebp - 36 ] , ebx ;0x006d7018 : 395ddc
jne Label6d7032 ;0x006d701b : 7515
lea ecx , dword ptr [ ebp + 02FCh ] ;0x006d701d : 8d8dfc020000
call Fun44d338 ;0x006d7023 : e81063d7ff
mov ecx , 0ADh ;0x006d7028 : b9ad000000
call Fun544742 ;0x006d702d : e810d7e6ff
Label6d7032 ::
mov eax , dword ptr [ Data9370f8 ] ;0x006d7032 : a1f8709300
mov eax , dword ptr [eax] ;0x006d7037 : 8b00
cmp dword ptr [ eax + 0118h ] , ebx ;0x006d7039 : 399818010000
je Label6d7082 ;0x006d703f : 7441
cmp word ptr [ ebp - 32 ] , bx ;0x006d7041 : 66395de0
jbe Label6d7082 ;0x006d7045 : 763b
cmp word ptr [ ebp - 32 ] , 01h ;0x006d7047 : 66837de001
je Label6d705a ;0x006d704c : 740c
movzx eax ,word ptr [ ebp - 32 ] ;0x006d704e : 0fb745e0
push eax ;0x006d7052 : 50
mov ecx , 051Bh ;0x006d7053 : b91b050000
jmp Label6d7062 ;0x006d7058 : eb08
Label6d705a ::
push dword ptr [ ebp - 40 ] ;0x006d705a : ff75d8
mov ecx , 0508h ;0x006d705d : b908050000
Label6d7062 ::
call Fun42c583 ;0x006d7062 : e81c55d5ff
push eax ;0x006d7067 : 50
lea eax , dword ptr [ ebp + 0644h ] ;0x006d7068 : 8d8544060000
push eax ;0x006d706e : 50
call Fun43089c ;0x006d706f : e82898d5ff
add esp , 0Ch ;0x006d7074 : 83c40c
lea eax , dword ptr [ ebp + 0644h ] ;0x006d7077 : 8d8544060000
call Fun543829 ;0x006d707d : e8a7c7e6ff
Label6d7082 ::
mov ecx , dword ptr [ ebp + 0750h ] ;0x006d7082 : 8b8d50070000
call Fun42bf1d ;0x006d7088 : e8904ed5ff
pop edi ;0x006d708d : 5f
pop esi ;0x006d708e : 5e
pop ebx ;0x006d708f : 5b
add ebp , 0754h ;0x006d7090 : 81c554070000
leave ;0x006d7096 : c9
ret ;0x006d7097 : c3
Fun890a33 :: ; proc near
push ebp ;0x00890a33 : 55
lea ebp , dword ptr [ esp + 0FFFFFAC0h ] ;0x00890a34 : 8dac24c0faffff
sub esp , 05CCh ;0x00890a3b : 81eccc050000
mov eax , dword ptr [ Data937090 ] ;0x00890a41 : a190709300
push ebx ;0x00890a46 : 53
push esi ;0x00890a47 : 56
push edi ;0x00890a48 : 57
mov dword ptr [ ebp + 053Ch ] , eax ;0x00890a49 : 89853c050000
;
; -------------------------------------------------
; VFP 9.0 FIX - RENAME COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the RENAME command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
; mov dword ptr vfpa_copyfile_nottolower,01h
xor ebx , ebx ;0x00890a4f : 33db
xor eax , eax ;0x00890a51 : 33c0
mov ecx , 090h ;0x00890a53 : b990000000
lea edi , dword ptr [ ebp + 01F0h ] ;0x00890a58 : 8dbdf0010000
push ebx ;0x00890a5e : 53
rep stosd ;0x00890a5f : f3ab
mov ecx , dword ptr [ ebp + 0548h ] ;0x00890a61 : 8b8d48050000
pushd 0105h ;0x00890a67 : 6805010000
lea edx , dword ptr [ ebp + 01F0h ] ;0x00890a6c : 8d95f0010000
mov dword ptr [ ebp - 36 ] , ebx ;0x00890a72 : 895ddc
call Fun43d389 ;0x00890a75 : e80fc9baff
;
; -------------------------------------------------
; VFP 9.0 FIX - RENAME COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the RENAME command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
Label890a79 ::
; mov dword ptr vfpa_copyfile_nottolower,00h
Label890a7a ::
push dword ptr [ ebp + 0548h ] ;0x00890a7a : ffb548050000
lea eax , dword ptr [ ebp - 48 ] ;0x00890a80 : 8d45d0
push eax ;0x00890a83 : 50
call Fun434bcf ;0x00890a84 : e84641baff
;
; -------------------------------------------------
; VFP 9.0 FIX - RENAME COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the RENAME command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
; mov dword ptr vfpa_copyfile_nottolower,01h
mov ecx , dword ptr [ ebp + 054Ch ] ;0x00890a89 : 8b8d4c050000
xor eax , eax ;0x00890a8f : 33c0
inc eax ;0x00890a91 : 40
mov edi , eax ;0x00890a92 : 8bf8
lea edx , dword ptr [ ebp - 32 ] ;0x00890a94 : 8d55e0
call Fun43f2b9 ;0x00890a97 : e81de8baff
;
; -------------------------------------------------
; VFP 9.0 FIX - RENAME COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the RENAME command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
Label890a9b ::
; mov dword ptr vfpa_copyfile_nottolower,00h
Label890a9c ::
push dword ptr [ ebp + 054Ch ] ;0x00890a9c : ffb54c050000
lea eax , dword ptr [ ebp - 52 ] ;0x00890aa2 : 8d45cc
push eax ;0x00890aa5 : 50
call Fun434bcf ;0x00890aa6 : e82441baff
lea edx , dword ptr [ ebp - 44 ] ;0x00890aab : 8d55d4
lea eax , dword ptr [ ebp + 0FFFFFF78h ] ;0x00890aae : 8d8578ffffff
call Fun42c27f ;0x00890ab4 : e8c6b7b9ff
push ebx ;0x00890ab9 : 53
push eax ;0x00890aba : 50
call Fun42c2be ;0x00890abb : e8feb7b9ff
cmp eax , ebx ;0x00890ac0 : 3bc3
pop ecx ;0x00890ac2 : 59
pop ecx ;0x00890ac3 : 59
mov dword ptr [ ebp - 40 ] , eax ;0x00890ac4 : 8945d8
jne Label890b9f ;0x00890ac7 : 0f85d2000000
;
; -------------------------------------------------
; VFP 9.0 FIX - RENAME COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the RENAME command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
; mov dword ptr vfpa_copyfile_nottolower,01h
push ebx ;0x00890acd : 53
lea eax , dword ptr [ ebp + 01F0h ] ;0x00890ace : 8d85f0010000
push eax ;0x00890ad4 : 50
call Fun42c953 ;0x00890ad5 : e879beb9ff
;
; -------------------------------------------------
; VFP 9.0 FIX - RENAME COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the RENAME command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
Label890ad9 ::
; mov dword ptr vfpa_copyfile_nottolower,00h
Label890ada ::
cmp eax , ebx ;0x00890ada : 3bc3
jne Label890b9f ;0x00890adc : 0f85bd000000
Label890ae2 ::
inc dword ptr [ ebp - 36 ] ;0x00890ae2 : ff45dc
lea eax , dword ptr [ ebp + 0318h ] ;0x00890ae5 : 8d8518030000
push eax ;0x00890aeb : 50
lea eax , dword ptr [ ebp - 48 ] ;0x00890aec : 8d45d0
push eax ;0x00890aef : 50
lea eax , dword ptr [ ebp + 0430h ] ;0x00890af0 : 8d8530040000
push eax ;0x00890af6 : 50
call Fun42c5c5 ;0x00890af7 : e8c9bab9ff
lea edx , dword ptr [ ebp + 0430h ] ;0x00890afc : 8d9530040000
call Fun49d5c3 ;0x00890b02 : e8bccac0ff
test eax , eax ;0x00890b07 : 85c0
je Label890b16 ;0x00890b09 : 740b
lea ecx , dword ptr [ ebp + 0430h ] ;0x00890b0b : 8d8d30040000
call Fun7c7bf8 ;0x00890b11 : e8e270f3ff
Label890b16 ::
push ebx ;0x00890b16 : 53
lea eax , dword ptr [ ebp + 0430h ] ;0x00890b17 : 8d8530040000
call Fun42d5e0 ;0x00890b1d : e8becab9ff
test eax , eax ;0x00890b22 : 85c0
je Label890b30 ;0x00890b24 : 740a
mov ecx , 084h ;0x00890b26 : b984000000
call Fun544742 ;0x00890b2b : e8123ccbff
Label890b30 ::
lea eax , dword ptr [ ebp + 0318h ] ;0x00890b30 : 8d8518030000
push eax ;0x00890b36 : 50
lea ecx , dword ptr [ ebp - 32 ] ;0x00890b37 : 8d4de0
call Fun75fa7f ;0x00890b3a : e840efecff
lea eax , dword ptr [ ebp + 0318h ] ;0x00890b3f : 8d8518030000
push eax ;0x00890b45 : 50
lea eax , dword ptr [ ebp - 52 ] ;0x00890b46 : 8d45cc
push eax ;0x00890b49 : 50
lea eax , dword ptr [ ebp + 0E8h ] ;0x00890b4a : 8d85e8000000
push eax ;0x00890b50 : 50
call Fun42c5c5 ;0x00890b51 : e86fbab9ff
lea edx , dword ptr [ ebp + 0E8h ] ;0x00890b56 : 8d95e8000000
call Fun49d5c3 ;0x00890b5c : e862cac0ff
test eax , eax ;0x00890b61 : 85c0
je Label890b70 ;0x00890b63 : 740b
lea ecx , dword ptr [ ebp + 0E8h ] ;0x00890b65 : 8d8de8000000
call Fun7c7bf8 ;0x00890b6b : e88870f3ff
Label890b70 ::
lea edi , dword ptr [ ebp + 0E8h ] ;0x00890b70 : 8dbde8000000
lea eax , dword ptr [ ebp + 0430h ] ;0x00890b76 : 8d8530040000
call Fun488609 ;0x00890b7c : e8887abfff
cmp eax , ebx ;0x00890b81 : 3bc3
je Label890b8c ;0x00890b83 : 7407
mov ecx , eax ;0x00890b85 : 8bc8
call Fun544742 ;0x00890b87 : e8b63bcbff
Label890b8c ::
;
; -------------------------------------------------
; VFP 9.0 FIX - RENAME COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the RENAME command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
push edi
push edi
call MoveFileA
Label890b8d ::
;
; -------------------------------------------------
; VFP 9.0 FIX - RENAME COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the RENAME command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
; mov dword ptr vfpa_copyfile_nottolower,01h
lea eax , dword ptr [ ebp + 01F0h ] ;0x00890b8c : 8d85f0010000
call Fun49cced ;0x00890b92 : e856c1c0ff
;
; -------------------------------------------------
; VFP 9.0 FIX - RENAME COMMAND
; December 2017
; -------------------------------------------------
; CCB
;
; In vfp9, the RENAME command always creates the destination file with a lower case file name,
; now it creates the destination file with the user-specified file name.
;
; 2017/12/3, by ccb
;
Label890b96 ::
; mov dword ptr vfpa_copyfile_nottolower,00h
Label890b97 ::
test eax , eax ;0x00890b97 : 85c0
je Label890ae2 ;0x00890b99 : 0f8443ffffff
Label890b9f ::
lea eax , dword ptr [ ebp - 44 ] ;0x00890b9f : 8d45d4
push eax ;0x00890ba2 : 50
lea eax , dword ptr [ ebp + 0FFFFFF78h ] ;0x00890ba3 : 8d8578ffffff
call Fun42d200 ;0x00890ba9 : e852c6b9ff
lea esi , dword ptr [ ebp + 01F0h ] ;0x00890bae : 8db5f0010000
call Fun43e393 ;0x00890bb4 : e8dad7baff
mov ecx , dword ptr [ ebp - 40 ] ;0x00890bb9 : 8b4dd8
cmp ecx , ebx ;0x00890bbc : 3bcb
je Label890bc5 ;0x00890bbe : 7405
call Fun544742 ;0x00890bc0 : e87d3bcbff
Label890bc5 ::
cmp dword ptr [ ebp - 36 ] , ebx ;0x00890bc5 : 395ddc
jne Label890bda ;0x00890bc8 : 7510
mov ecx , dword ptr [ ebp + 0548h ] ;0x00890bca : 8b8d48050000
pushd 0ADh ;0x00890bd0 : 68ad000000
call Fun44d388 ;0x00890bd5 : e8aec7bbff
Label890bda ::
mov ecx , dword ptr [ ebp + 053Ch ] ;0x00890bda : 8b8d3c050000
call Fun42bf1d ;0x00890be0 : e838b3b9ff
pop edi ;0x00890be5 : 5f
pop esi ;0x00890be6 : 5e
pop ebx ;0x00890be7 : 5b
add ebp , 0540h ;0x00890be8 : 81c540050000
leave ;0x00890bee : c9
ret 08h ;0x00890bef : c20800
Now the COPY FILE and RENAME commands create the destination file with the user-specified file name.
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.
5. REFERENCE WEBSITES:
1, baiyujia.com:
http://www.baiyujia.com
2, microsoft.com:
https://connect.microsoft.com/VisualStudio/feedback/details/218023/vfp-8-9-copy-file-and-rename-commands-change-file-names-allways-to-lawercase
https://social.msdn.microsoft.com/Forums/en-US/8bf07ea5-4693-4d97-b6d8-844d6f0a0712/how-can-i-copy-a-file-and-rename-to-upper-case-file-name
https://social.msdn.microsoft.com/Forums/en-US/3192215f-b073-4082-893a-79ca36f36ffd/rename-case-sensitive
3, foxite.com:
https://www.foxite.com/archives/copy-file-changed-case-0000402944.htm
https://www.foxite.com/archives/copy-filerename-changes-cases-to-filenames-0000023778.htm
https://www.foxite.com/archives/copy-file-0000314742.htm
https://www.foxite.com/archives/copy-file-changes-filename-to-lower-case-0000104923.htm
https://www.foxite.com/archives/copy-file-issue-0000428071.htm
https://www.foxite.com/archives/file-copy-issue-0000428069.htm
https://www.foxite.com/archives/renaming-a-file-to-uppercase-0000246959.htm
4, mzvfp.com:
http://www.mzvfp.com/read.php?tid=56306
5, sunyear.com.tw:
http://vfp.sunyear.com.tw/viewtopic.php?t=6848
http://vfp.sunyear.com.tw/viewtopic.php?t=4795
6, berezniker.com:
https://www.berezniker.com/content/pages/visual-foxpro/copy-move-rename-file-preserving-destination-name-case
7, narkive.com:
http://microsoft.public.fox.programmer.exchange.narkive.com/z9Qbft2p/copy-file-changes-file-name-case-to-lower-case
8, devx.com:
http://forums.devx.com/showthread.php?80569-fOXPRO-BUG
9, computer-programming-forum.com:
http://computer-programming-forum.com/2-vfp/3ee2f0a5908c69b3.htm
6. OTHER:
For reference only, there is no guarantees.
Any questions or suggestions, please send me an email at ccb2000@163.com.
|