VFP 愛用者社區

[LiuRambo]

連rename也是會出現一樣問題
請問這有解決之道嗎

環境：VFP6

[CCB2000]

example:

m.q_file="C:\TEMP\Abc.tmp"
m.p_lower=.F.

DECLARE INTEGER "MoveFile" IN win32api ;
STRING lpfilename,STRING lpnewfilename

m.q_file1=m.q_file
m.q_file2=m.q_file+".$FILESORT$"
IF AT(".",m.q_file)>0
RENAME (LOWER(m.q_file1)) TO (LOWER(m.q_file1))
ELSE
RENAME (LOWER(m.q_file1+".")) TO (LOWER(m.q_file1+"."))
ENDI
IF m.p_lower=.F.
=movefile(UPPE(m.q_file1),UPPE(m.q_file2))
=movefile(UPPE(m.q_file2),UPPE(m.q_file1))
ELSE
=movefile(LOWER(m.q_file1),LOWER(m.q_file2))
=movefile(LOWER(m.q_file2),LOWER(m.q_file1))
ENDI

[LiuRambo]

有效耶
API小弟還沒玩過

感謝指導喔