Browse Category

VBS

某 Copy PPT 的小程序

本程序将所有打开过的 PowerPoint 文件依日期归类至本地及网盘存档,同时发送至指定邮箱,并支持添加自定义扩展。


On Error Resume Next
Dim fso,WS
Dim BaseFolderList
Public Const vbQuote = """"
Set fso = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("WScript.Shell")
StartLog = WriteMainLog("#OK_ScriptStart#")
BaseFolderLis[......]

阅读全文