Hola a todos,
¿Cómo harÃan ustedes para renombrar una carpeta que no està vacia?
Gracias
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Renombrar carpeta/directorio.
Hola
#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 ENDDUMPour best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
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
Saludos,
Adhemar C.
Adhemar C.
// 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 ENDDUMPJoão Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Funciona
Gracias,
Joao
Saludos,
Adhemar C.
Adhemar C.