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

Funciona OK.
Pero no puedo hacer fC.Name=miVariable.
Solo puedo asignar una cadena de texto directamente.
Si le asigno una variable me devuelve: Código de error OLE 0x800a003a:
Código de estado de COM desconocido.

"José G. Samper" escribió en el mensaje
news:

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
>
>