把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的分享

czjt1234

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

1文件.vbs去掉以下几行

1. Option Explicit
   
2. 
   
3. Dim wordApp, wordDoc
   
4. Dim folderPath, currentFile
   
5. Dim fso, folder, files, file
   
6. Dim fileArray(), fileName, fileNumber
   
7. Dim i, j, temp

复制代码

2目录.vbs去掉以下几行

1. Option Explicit
   
2. 
   
3. Dim objFSO, objFolder, objTextFile, objFile ' Declare variables
   
4. Dim strDirectory, strFile, currentDate, chineseDayOfWeek, formattedDate, formattedTime, currentTime
   
5. Dim dictFiles, key, arrKeys, i ' Additional variables for sorting

复制代码

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

qd2024

回复 2# czjt1234


    成了 谢谢