具体要求:删除指定文件夹中的多个文件夹，按照时间和名称判断是否删除 删除条件如下 1 删除 创建日期 是30天以前的 2 删除 最后修改时间 是20天以前的 3 不删除 文件夹名称包含mp和win7的 相关代码 '获取文件夹属性 Dim path, a, b, objFSO, myfolder, objFolder, colFiles '输入文件夹完整路径 path = "D:VBox-VMs" a = "" : b = "" Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(path) = true Then '如果存在 Set objFolder = objFSO.GetFolder(path) '返回文件夹对象 'Msgbox "创建日期: " & objFolder.DateCreated & vbcr 'Msgbox "最后访问时间: " & objFolder.DateLastAccessed & vbcr 'Msgbox "最后修改时间: " & objFolder.DateLastModified & vbcr 时间：可商议 预算：100左右，具体商议 注：有意向的服务商，请尽快联系。走猪八戒线上担保交易，对彼此都有保障。