Dim path = "D:\ITS\123\" As String
Dim fileName As String
 fileName = Dir(path + "3*")
    Do Until Len(fileName) = 0
        Kill path & fileName
        strFileNm = Dir()
    Loop关键fileName是由统配符来查询获得的完整的文件名,在线求教。