以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何通过按键实现对特定文件夹内的特定扩展名文件的删除，谢谢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82813)
--  作者：zstk7333
--  发布时间：2016/3/25 10:47:00
--  如何通过按键实现对特定文件夹内的特定扩展名文件的删除，谢谢
我想通过一个按键实现对ProjectPath & “Attachments\\” 下面的zip文件进行删除操作。DeleteFile 好像只能删除一个文件。请指教，谢谢
--  作者：大红袍
--  发布时间：2016/3/25 10:57:00
--  

循环删除

 

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
--  作者：zstk7333
--  发布时间：2016/3/25 11:24:00
--  
谢谢老师指点