Página 1 de 1
Comando equivalente
Enviado: 31 Jul 2009 12:08
por TerraSoftware
Caros colegas, existe algum comando ou funcao no xharbour equivalente ao comando do DOS deltree?
Preciso excluir uma pasta com todo seu conteudo.
A funcao DIRREMOVEnao exclue a pasta se ela tiver conteudo.
Re: Comando equivalente
Enviado: 31 Jul 2009 13:15
por Toledo
Amigo, tenta o seguinte:
Código: Selecionar todos
function main()
ZAPDIRECTORY( "C:\TEMP"+ Chr(0))
return nil
#pragma BEGINDUMP
#include <windows.h>
#include "hbapi.h"
#include "hbapiitm.h"
HB_FUNC ( ZAPDIRECTORY )
{
SHFILEOPSTRUCT sh;
sh.hwnd = GetActiveWindow();
sh.wFunc = FO_DELETE;
sh.pFrom = hb_parc(1);
sh.pTo = NULL;
sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT;
sh.hNameMappings = 0;
sh.lpszProgressTitle = NULL;
SHFileOperation (&sh);
}
#pragma ENDDUMP
Abraços,