jyswjjgdwtdtj

嘿嘿 虽然已经解决了

'vbscript
Set shell = CreateObject("shell.application")
Set pdfs = shell.namespace(Replace(WScript.scriptfullname,WScript.scriptname,"")).items
pdfs.Filter 128,"*.pdf"
For Each pdf In pdfs
  If InStr(pdf.name,"已处理") = -1 Then
    pdf.name = "待处理" + pdf.name
  End If
Next
复制代码

jyswjjgdwtdtj

回复 15# xp3000


    文件重命名可以直接file.name="1.txt" 不需要movefile