Topic: How To Use Function RemoveDir And SubFolder

In MVD Function  have function

DeleteFile() 

Delete File only

i try search google found

Removedir()

It can use MVD not ERROR OK!
but  if folder have sub folder can not delete   

if want delete folder and sub folder  how to use function or edit custom function ???

My Visual Database : I Love You
Easy For Beginner Student For Me

Re: How To Use Function RemoveDir And SubFolder

Hello.


The function RemoveDir removes only empty folder, if you want remove all files and sub folders, you can use this script:


function DeleteDirWithFiles(dir: string): boolean;
var
    sl: TStringList;
    i,c: integer;
begin
    result := True;
    sl := TStringList.Create;
    sl.Text := GetFilesList(dir);

    // delete all files
    c := sl.Count-1;
    for i := 0 to c do
        if not DeleteFile(sl[i]) then
        begin
            ShowMessage('Can''t remove file '+sl[i]);
            result := False;
        end;

    // delete directiries
    sl.Text := GetDirectories(dir);
    c := sl.Count-1;
    for i := c downto 0 do
        if not RemoveDir(sl[i]) then
        begin
            ShowMessage('Can''t remove dirercory '+sl[i]);
            result := False;
        end;

    // delete main directory
    RemoveDir(dir);
    sl.Free;
end;


// how to use function DeleteDirWithFiles
procedure Form1_Button4_OnClick (Sender: string; var Cancel: boolean);
var
    sDir: string;
begin
    sDir := 'd:\folder';

    if not DeleteDirWithFiles(sDir) then
        ShowMessage('Can''t remove directory');
end;
Dmitry.