discuss.visual-prolog.com

Code: Select all

class predicates
    deleteFolder : (string Folder).
clauses
    deleteFolder(Folder) :-
        foreach SubFolder = directory::getSubDirectories_nd(Folder) do
            deleteFolder(SubFolder)
        end foreach,
        directory::forAllFiles(Folder,
            {(File) :-
%                file::setAttributes(File, [fileSystem_api::readOnly], false),
                file::delete(File)}),
        directory::deleteDirectory(Folder).

Code: Select all

clauses
    onTest(_Source, _MenuTag):-
        mainExe::getFileName(Root,_),
        if Path = directory::browseForFolder(getVpiWindow(),"Please select a folder :",Root,false) then
            Stop = varM::new(0),
            foreach F = directory::getFilesInDirectoryAndSub_nd(Path) do
                try
                    file::delete(F)
                catch _ do
                    Stop:value := 1,
                    succeed()
                end try
            end foreach,
            if Stop:value = 0 then
                try
                    directory::deleteDirectory(Path)
                catch _ do
                    succeed()
                end try
            else
                vpiCommonDialogs::note("Cannot delete :","this folder is not empty.")
            end if
        end if.

Code: Select all

class predicates
    deleteFolder : (string Folder) -> setM{string FileName} Undeleted.
clauses
    deleteFolder(Folder) = Set :-
        Set = setM_redBlack::new(),
        deleteFolder(Folder, Set).
 
class predicates
    deleteFolder : (string Folder, setM{string FileName} Undeleted).
clauses
    deleteFolder(Folder, Set) :-
        foreach SubFolder = directory::getSubDirectories_nd(Folder) do
            deleteFolder(SubFolder, Set)
        end foreach,
        directory::forAllFiles(Folder,
            {(File) :-
                try
                    file::delete(File)
                catch _ do
                    Set:insert(File)
                end try}),
        try directory::deleteDirectory(Folder) catch _ do succeed() end try.