How to clean a QVD without calling Modules or external program's

    On Edit Script:

    .................

    Sub EmptyQvd(file)

    if (not IsNull(QvdCreateTime(file)) and QvdNoOfRecords(file)>0) then

         LET vFieldName=QvdFieldName(file,1);     

         ___:noconcatenate LOAD * FROM [$(file)] (qvd) WHERE 1=0;

         STORE ___ INTO [$(file)] (qvd);

         DROP TABLE ___;

    end if

    End Sub

    ...................

    call EmptyQvd('file to delete.qvd');