示例代码如下：Private Sub Command1_Click() FullFileName = "c:\test\a.txt"'FileLen返回文件的大小，以字节为单位 If FileLen(FullFileName) > 10240 Then'Kill删除指定文件 Kill (FullFileName) End IfEnd Sub
