参考代码
For Each f As String In FileSys.GetFiles("d:\") If FileSys.GetName(f).contains("test") Then FileSys.DeleteFile(f, 2,2) End IfNext