Cambiar nombre a un directorio

Hola como estas,

Local lc_original as string,fOlObj as object,fC as object
lc_original='C:\prueba'
fOlObj=CREATEOBJECT("Scripting.FileSystemObject")
If fOlObj.FolderExists(lc_original)
fC=fOlObj.GetFolder(lc_original)
fC.Name="NuevoNombre"
endif

Saludos

José G. Samper
http://groups.msn.com/desarrolladoresmiranda/

"Eduardo Castellano" escribió en el mensaje
news:

Alguien sabe como puedo hacerlo.

Gracias