主题：如何通过按键实现对特定文件夹内的特定扩展名文件的删除，谢谢

循环删除

Dim fp As String = ProjectPath & "Attachments"
For Each s As String In FileSys.GetFiles(fp)
    Dim finfo As New FileInfo(s)
    If finfo.Extension = ".zip" Then
        FileSys.DeleteFile(s, 2, 2)
    End If
Next