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

[Anonymous]

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');