* FUNCTION RenDir.prg * AUTHOR: George Tasker * DATE: July 2, 1998 - 1:38 PM * PURPOSE: Renames a directory LPARAMETERS pcoldname, pcnewname DECLARE SHORT MoveFile IN Win32API; STRING @lpcurrentname, STRING @lpnewname LOCAL lcoldname, lcnewname, llresult lcoldname = pcoldname lcnewname = pcnewname llresult = (MoveFile(@lcoldname, @lcnewname) # 0) RETURNHowever, the Windows Script Host's Scripting.FileSystem object can do the same thing.
oFSO = CREATEOBJECT("Scripting.FileSystemObject") oFolder = oFSO.GetFolder(< fully qualified name >) oFolder.Name = lcnewname