易语言运行vbs问题

afu45

打开文件  没关闭   文件占用了呗

写到文件（取运行目录 () ＋ “\” ＋ “新建文件夹” ＋ “\” ＋ “DP.vbs”, 到字节集("MsgBox(123)"))

bysy

执行 (, 取特定目录 (3) ＋ “DOC转换PDF\DP.VBS”, , , )
首先 你确定你 桌面有一个 叫 DOC转换PDF 的文件夹 并且把vbs防进去 才可以运行

wyzskwb001

afu45 发表于 2023-1-9 22:35
打开文件  没关闭   文件占用了呗

写到文件（取运行目录 () ＋ “\” ＋ “新建文件夹” ＋ “\” ＋ “DP ...

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

目录_创建 (取运行目录 () ＋ “\” ＋ “新建文件夹”)
延时 (100)
文件_创建 (取运行目录 () ＋ “\” ＋ “新建文件夹\DP.vbs”, 10)
延时 (100)
写到文件 (取运行目录 () ＋ “\” ＋ “新建文件夹\DP.vbs”, 到字节集 ( #DP数据 ))

子程序名	返回值类型	公开	备 注
_按钮2_被单击

执行 (4, 取运行目录 () ＋ “\” ＋ “新建文件夹\DP.vbs”, , , )
DP数据=On Error Resume Next
Const wdExportFormatPDF = 17
Set oWord = WScript.CreateObject ("Word.Application")
Set fso = WScript.CreateObject ("Scripting.Filesystemobject")
Set fds=fso.GetFolder (".")
Set ffs=fds.Files
For Each ff In ffs
If (LCase (Right (ff.Name,4))=".doc" Or LCase (Right (ff.Name,4))="docx" ) And Left (ff.Name,1)<>"~" Then
Set oDoc=oWord.Documents.Open (ff.Path)
odoc.ExportAsFixedFormat Left (ff.Path,InStrRev (ff.Path,"."))&"pdf",wdExportFormatPDF
If Err.Number Then
MsgBox Err.Description
End If
End If
Next
odoc.Close
oword.Quit
Set oDoc=Nothing
Set oWord =Nothing
MsgBox "转换成功!"

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 目录_创建 (取运行目录 () ＋ “\” ＋ “新建文件夹”)<br /> 延时 (100)<br /> 文件_创建 (取运行目录 () ＋ “\” ＋ “新建文件夹\DP.vbs”, 10)<br /> 延时 (100)<br /> 写到文件 (取运行目录 () ＋ “\” ＋ “新建文件夹\DP.vbs”, 到字节集 (#DP数据))<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 执行 (4, 取运行目录 () ＋ “\” ＋ “新建文件夹\DP.vbs”, , , )<br /> <br /> <br /> DP数据=On Error Resume Next<br /> Const wdExportFormatPDF = 17<br /> Set oWord = WScript.CreateObject("Word.Application")<br /> Set fso = WScript.CreateObject("Scripting.Filesystemobject")<br /> Set fds=fso.GetFolder(".")<br /> Set ffs=fds.Files<br /> For Each ff In ffs<br />     If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then<br />         Set oDoc=oWord.Documents.Open(ff.Path)<br />         odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF<br />         If Err.Number Then<br />         MsgBox Err.Description<br />         End If<br />     End If<br /> Next<br /> odoc.Close<br /> oword.Quit<br /> Set oDoc=Nothing<br /> Set oWord =Nothing<br /> MsgBox "转换成功!"

wyzskwb001

afu45 发表于 2023-1-9 22:35
打开文件  没关闭   文件占用了呗

写到文件（取运行目录 () ＋ “\” ＋ “新建文件夹” ＋ “\” ＋ “DP ...

我感觉思路没问题啊，第一步新建文件夹，第二步生成个空的vbs，第三部空vbs写入数据，第四步运行这个vbs，为什么就是不成功呢？就卡在最后一步

afu45

新建 易程序 2.e (931.81 KB, 下载次数: 6)

2023-1-9 22:49 上传

点击文件名下载附件

最后一步你也没用我发的代码

hxk12349

wyzskwb001 发表于 2023-1-9 21:11
还是不行呢，是不是vbs不能用图片资源存储和释放呢？但是释放出来的是正常的vbs，手动双击也成功，也有成 ...

没有问题啊

wyzskwb001

afu45 发表于 2023-1-9 22:50
最后一步你也没用我发的代码

afu45

afu45 发表于 2023-1-9 22:50
最后一步你也没用我发的代码

这个正常吗？

补充内容 (2023-1-9 23:04):
新建 易程序 2.e

wyzskwb001

afu45 发表于 2023-1-9 23:04
这个正常吗？

补充内容 (2023-1-9 23:04):

也不正常呢，生成写入的vbs都是正确的。

wyzskwb001

wyzskwb001 发表于 2023-1-9 23:18
也不正常呢，生成写入的vbs都是正确的。

试了，也是那样，我系统是win11