比如删除d:\aaa文件夹中123起头的文本文件 Dim file As String file = Dir("d:\aaa\123*.txt") '第一次给出文件参数，里面包含通配符 Do Until file = "" Kill "d:\aaa\" & file file = Dir() '接下去忽略参数，直到返回空串时退出循环 Loop
