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

我想通过一个按键实现对ProjectPath & “Attachments\” 下面的zip文件进行删除操作。DeleteFile 好像只能删除一个文件。请指教，谢谢

循环删除

 

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

谢谢老师指点