新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim strFN$
    strFN = Dir(App.Path & "\*.tmp")
    Do While strFN ＜＞ ""
        Kill App.Path & "\" & strFN
        strFN = Dir
    Loop
    MsgBox "删除完毕"
End Sub