循环删除
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 IfNext