[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] 把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的分享

回复 2# czjt1234


    成了 谢谢

TOP

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

1文件.vbs去掉以下几行
  1. Option Explicit
  2. Dim wordApp, wordDoc
  3. Dim folderPath, currentFile
  4. Dim fso, folder, files, file
  5. Dim fileArray(), fileName, fileNumber
  6. Dim i, j, temp
复制代码
2目录.vbs去掉以下几行
  1. Option Explicit
  2. Dim objFSO, objFolder, objTextFile, objFile ' Declare variables
  3. Dim strDirectory, strFile, currentDate, chineseDayOfWeek, formattedDate, formattedTime, currentTime
  4. Dim dictFiles, key, arrKeys, i ' Additional variables for sorting
复制代码
把开头的几行删除,然后合并在一起试下,应该可以

QQ 20147578

TOP

返回列表