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