|
|
发表于 2023-3-16 18:01:05
|
显示全部楼层
本帖最后由 jyswjjgdwtdtj 于 2023-3-16 18:02 编辑
保存为vbs
不知道能不能用- set shell=createobject("shell.application")
- set folder=shell.namespace("\\192.168.0.3\wcc拆单专用文件夹2019\计料部五金清单")
- set tf=shell.namespace("D:\BOM清单")
- m=inputbox("数字")
- dd=datediff("d",0,date)
- select case m
- case 1
- for each item in folder.items.Filter(128,"*BOM清单\.xlsx")
- md=datediff("d",0,item.modifydate)
- if md=dd-1 then
- tf.copyhere(item)
- end if
- next
- case 2
- for each item in folder.items.Filter(128,"*BOM清单\.xlsx")
- md=datediff("d",0,item.modifydate)
- if md=dd then
- tf.copyhere(item)
- end if
- next
- case 3
- for each item in folder.items.Filter(128,"*BOM清单\.xlsx")
- md=datediff("d",0,item.modifydate)
- if md=dd-1 then
- tf.copyhere(item)
- end if
- next
- end select
复制代码 虽然不是bat |
|