[文件操作] 把2个VBS合并成一下VBS 依次执行

qd2024

链接：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的分享

qd2024

回复 2# czjt1234


    成了 谢谢

czjt1234

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

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
复制代码

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