vbs手册pdf(vbs帮助文档)
求一个VBS完全版手册下载
一般的手册都只有wsh,fso
没有其他的了。
你可以去
你说的adodb之类的，如果加上这种，我想没有一个是完全的，因为可调用的对象都可以自己写相应的控件。
求助 找WinCC的VBS脚本手册
您要WinCC的VBS脚本手册我已发送，请按照步骤进行操作！！
你的采纳是我前进的动力，
记得好评和采纳，互相帮助，
如果你认可我的回答，敬请及时采纳.
如果我的回答没能帮助您，请继续追问。
你的采纳是我前进的动力。记得好评和采纳，答题不易，互相帮助。
怎样利用vbs和office批量转换pdf？这篇报道谁有详细教程？源码?win8怎么办？
我用的是精简的office 2007，代码如下：
On Error Resume Next
Set ppt = CreateObject("PowerPoint.application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds = fso.GetFolder("E:\1-1\") '此处可以写自已文件所在的文件夹
Set ffs = fds.Files
For Each ff In ffs
If (LCase(Right(ff.Name,4))=".ppt" Or LCase(Right(ff.Name,4))="pptx" ) And Left(ff.Name,1)"~" Then
Set pptfile = ppt.Presentations.Open(ff.Path,false,false,false)
pptfile.Saveas Left(ff.Path,InStrRev(ff.Path,"."))"pdf",32,false
If Err.Number Then
MsgBox Err.Description
End If
End If
Next
pptfiles.Close
ppt.Quit
Set pptfile = Nothing
Set ppt = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject") '此处是转换后删掉PPT文件的
objFSO.DeleteFile("E:\1-1\*.ppt")
objFSO.DeleteFile("E:\1-1\*.pptx")
MsgBox "PPT文件已全部轩换为PDF格式!并且已删除PPT文档!"
你可以试下，应该是没有问题的，我本人一直在用……
vbs脚本实现打开d盘pdf文件
下面的VBS脚本可以做到，测试通过。
Function?X86orX64()
????'用WMI方法判断操作系统是32位还是64位
????On?Error?Resume?Next
????strComputer?=?"."?'localhost
????Set?objWMIService?=?GetObject("winmgmts:\\"??strComputer??"\root\cimv2")
????Set?colItems?=?objWMIService.ExecQuery("Select?*?from?Win32_ComputerSystem",,48)
????
????For?Each?objItem?in?colItems
????????If?InStr(objItem.SystemType,?"86")??0?Then
????????????X86orX64?=?"x86"
????????ElseIf?InStr(objItem.SystemType,?"64")??0?Then
????????????X86orX64?=?"x64"
????????Else
????????????X86orX64?=?objItem.SystemType
????????End?If
????Next
End?Function
'WScript.Echo?X86orX64()
sysType?=?X86orX64()
If?sysType?=?"x86"?Then
????progPath?=?"%ProgramFiles%"?'DOS窗口中用set命令查看环境变量
ElseIf?sysType?=?"x64"?Then
????progPath?=?"%ProgramFiles(x86)%"?'DOS窗口中用set命令查看环境变量
Else
????MsgBox?sysType,?vbExclamation,?"Unexpected?System?Type"
????WScript.Quit
End?If
adobePath?=?progPath??"\Adobe\Reader?10.0\Reader\AcroRd32.exe"
'确定Adobe?PDF?Reader安装路径
pdfPath?=?"D:\Test.pdf"?'要打开的PDF文件路径
Set?WshShell?=?WScript.CreateObject("WScript.Shell")
WshShell.Run?Chr(34)??adobePath??Chr(34)??_
????"?"??Chr(34)??pdfPath??Chr(34)
'Chr(34)表示双引号，通常将路径放在双引号中以避免路径中空格带来的问题
Set?WshShell?=?Nothing
