Comando equivalente

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

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