Renombrar carpeta/directorio.

[FiveWiDi]

Hola a todos,

¿Cómo harían ustedes para renombrar una carpeta que no està vacia?

Gracias

[Daniel Garcia-Gil]

Hola

Code: Select all  Expand view

#include "fivewin.ch"

function main( cOld, cNew )
   
   if ! empty( cOld ) .and. ! empty( cNew )
      if myrename( cOld, cNew )
         ? "Nombre Cambiado"
      endif
     
   endif
   
return nil


#pragma BEGINDUMP
#include <hbapi.h>
#include <hbapifs.h>


HB_FUNC( MYRENAME )
{
   const char * oldname = hb_parc( 1 );
   const char * newname = hb_parc( 2 );
   
   hb_retl( hb_fsRename( oldname, newname ) );
   
}

#pragma ENDDUMP

 

[acuellar]

Amigos

Estoy intentando renombrar una carpeta/directorio que está en la raiz de la unidad, con el ejemplo de Daniel y no me funciona.

Ej: "D:\System" con "D:\Sistema" No cambia.
"D:\System\New" con "D:\System\Nueva" Si cambia

Alguien ha podido lograrlo.

Gracias por la ayuda

Saludos,

Adhemar

[karinha]

Code: Select all  Expand view

// RENAMED.PRG - Perfect.

#include "fivewin.ch"

function main( )

   LOCAL cOld, cNew

   cOld := PADR("C:\TEST",  20)
   cNew := PADR("C:\TESTY", 20)

   MsgGet( "Entre Carpeta Old", "Carpeta Old:",  @cOld)

   MsgGet( "Entre Carpeta New ", "Carpeta New:", @cNew)

   if .not. empty( cNew )

      Cambia_Dir( cOld, cNew )

   endif

return nil

function Cambia_Dir( cOld, cNew )
   
   if ! empty( cOld ) .and. ! empty( cNew )

      if myrename( cOld, cNew )

         ? "Nombre Cambiado"

      else

         ? "Imposible ReNombrar Carpeta o no ejiste"

      endif
     
   endif
   
return nil


#pragma BEGINDUMP
#include <hbapi.h>
#include <hbapifs.h>

HB_FUNC( MYRENAME )
{
   const char * oldname = hb_parc( 1 );
   const char * newname = hb_parc( 2 );
   
   hb_retl( hb_fsRename( oldname, newname ) );
   
}

#pragma ENDDUMP
 



[acuellar]

Funciona

Gracias,

Joao