VFP更改文件夹名（目录名）

在C盘有aaa和bbb两个目录，有方法做一个按钮的单击，然后把两个目录名互换？

我的思路是把其中一个目录名暂时换成aaa_temp，把bbb改成aaa再把aaa_temp改成bbb,可是不如在VFP里面如何实现。
---------------------------------------------------------------

LOCAL loFSO
loFSO = CREATEOBJECT("Scripting.FileSystemObject") 
fso=loFSO.GetFolder("c:/aaa")
fso.Name='temp_a'
fso=loFSO.GetFolder("c:/bbb")
fso.Name='aaa'
fso=loFSO.GetFolder("c:/temp_a")
fso.Name='bbb'
RELEASE loFSO

在VFP中更改文件夹名
*-------------------------------------------------

LOCAL loFSO
loFSO = CREATEOBJECT("Scripting.FileSystemObject") 
fso=loFSO.GetFolder("c:/原名")
fso.Name='目录名'
RELEASE loFSO

或

DECLARE INTEGER MoveFile IN WIN32API STRING @cFrom, STRING @cTo
=MoveFile("C:/原名", "C:/目录名")
CLEAR DLLS