powerbuilder 怎么给文件夹重命名

powerbuilder 如何给文件夹重命名
如何用pb把文件夹重新命名，没有响应的函数，如果用API的话，改用那个，谢谢！
------解决方案--------------------
api比较麻烦，上传上来

forward

global type w_main from window

end type

type cb_2 from commandbutton within w_main

end type

type cb_1 from commandbutton within w_main

end type

type shfileopstruct from structure within w_main

end type

end forward


type shfileopstruct from structure

	long		hwnd

	long		wfunc

	string		pfrom

	string		pto

	long		fflags

	long		fanyoperationsaborted

	long		hnamemappings

	string		lpszprogresstitle

end type


global type w_main from window

integer width = 1865

integer height = 700

boolean titlebar = true

string title = "Untitled"

boolean controlmenu = true

boolean minbox = true

boolean maxbox = true

boolean resizable = true

long backcolor = 67108864

string icon = "AppIcon!"

boolean center = true

cb_2 cb_2

cb_1 cb_1

end type

global w_main w_main


type prototypes

FUNCTION ulong SHFileOperation(ref SHFILEOPSTRUCT lpFileOp) LIBRARY &

      "shell32.dll" ALIAS FOR "SHFileOperation;Ansi"

end prototypes

type variables

Private long FO_MOVE = 1						//移动

Private long FO_COPY = 2						//复制

Private long FO_DELETE = 3					//删除

Private long FO_RENAME = 4					//改名

Private long FOF_NOCONFIRMATION = 16		//没有提示

Private long FOF_SILENT = 4					//

Private long FOF_NOERRORUI = 4 * 16 * 16

end variables

forward prototypes

public function long wf_pathoperate (string frompath, string topath, long sorder)

end prototypes


public function long wf_pathoperate (string frompath, string topath, long sorder);SHFILEOPSTRUCT lstr_data