niuniu0186的专栏

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"  Set objEmail = CreateObject("CDO.Message")   Function HttpRequest(url,mode,params)    Dim oauth_http    Set oauth_http=CreateObject("Micr...

ppttomp4.vbsOption Explicit     Dim outPath,inPath,tempPath'读取PPT文件夹inPath = "d:\test\11"'输出MP4文件夹，后面必须带\outPath = "d:\test\out\"'临时文件夹，存放未成功导出mp4的ppt文件，后面必须带\tempPath= "d:\test\22\"Function FilesTree...