批处理之家 - Powered by Discuz! Board

标题: [文件操作] 把2个VBS合并成一下VBS 依次执行 [打印本页]

作者: qd2024 时间: 2024-3-8 14:40 标题: 把2个VBS合并成一下VBS 依次执行

链接：https://pan.baidu.com/s/1lzZw9Km0LW2lhRR-swaWAg?pwd=46rh
提取码：46rh
--来自百度网盘超级会员V10的分享

我有2段VBS代码

1目录  实现打印学生通知下所有文件的目录
2文件实现打印学生通知下所有文件的内容

单独使用都没问题我想把这两段代码放在一个 VBS中一次执行  先打印目录  再打印文件  总是报错

查了  说一个VBS中不能有2个  Option Explicit
求老师帮忙改一下

谢谢

链接：https://pan.baidu.com/s/1lzZw9Km0LW2lhRR-swaWAg?pwd=46rh
提取码：46rh
--来自百度网盘超级会员V10的分享

作者: czjt1234 时间: 2024-3-8 15:06

把文件开头的去掉应该可以

1文件.vbs去掉以下几行

Option Explicit

Dim wordApp, wordDoc
Dim folderPath, currentFile
Dim fso, folder, files, file
Dim fileArray(), fileName, fileNumber
Dim i, j, temp
复制代码

2目录.vbs去掉以下几行

Option Explicit

Dim objFSO, objFolder, objTextFile, objFile ' Declare variables
Dim strDirectory, strFile, currentDate, chineseDayOfWeek, formattedDate, formattedTime, currentTime
Dim dictFiles, key, arrKeys, i ' Additional variables for sorting
复制代码

把开头的几行删除，然后合并在一起试下，应该可以

作者: qd2024 时间: 2024-3-8 15:35

回复 2# czjt1234

成了谢谢

欢迎光临批处理之家 (http://bbs.bathome.net/)