有关vbs的帖子不能回复

sunny_8848 · 发表于 2017-1-22 18:59

本帖最后由 sunny_8848 于 2017-1-22 19:08 编辑

http://club.excelhome.net/thread-1325291-1-1.html
这个帖子怎么回复不了，违反论坛什么规则吗

sunny_8848 · 发表于 2017-1-22 19:03

sunny_8848 · 发表于 2017-1-22 19:04

谢谢帮助，代码没效果
我的本意如下：
S = "D:\1\" '生成bat文件
Open S & "1.bat" For Output As #1
Print #1, "@echo off"
Print #1, ":redel"

Print #1, "del " & Chr(34) & S & "*.xls" & Chr(34)
Print #1, "if exist " & Chr(34) & S & "*.xls" & Chr(34) & " goto redel"

Print #1, "rd /s /q " & Chr(34) & S & Chr(34)

Print #1, "del %0"

Print #1,
Close #1

vbs = "Set ws = CreateObject(""Wscript.Shell"")" & Chr(10) & "ws.run ""cmd /c 1.bat"",vbhide" '生成VBS文件
Open "D:\1\text.vbs" For Output As #1
Print #1, vbs
Close #1

ChDrive "D:"
ChDir "D:\1"
Shell "cscript test.vbs" 'VBS运行bat完毕后删除文件所在文件夹

qiuhonghao · 发表于 2017-1-22 19:46

我最近的帖子也经常回复不了，不知道怎么回事。比如这个，郁闷。
用vba代码怎么把选择区域的数据合并为一个数据。
http://club.excelhome.net/thread-1325352-1-1.html
(出处: ExcelHome技术论坛)

心电感应 · 发表于 2017-1-22 20:12

已修复，谢谢反馈！

№▁▃风筝﹋ · 发表于 2017-1-22 20:18

Open S & "1.bat" For append As #1

复制代码

sunny_8848 · 发表于 2017-1-22 21:56

№▁▃风筝﹋发表于 2017-1-22 20:18

还是不行，问题不在Open S & "1.bat" For append As #1这句代码上，因为vbs不能运行bat文件

№▁▃风筝﹋ · 发表于 2017-1-22 22:34

vbs是执行删除还是执行？不用给路径的吗？我对cmd的命令不懂。

№▁▃风筝﹋ · 发表于 2017-1-22 22:37

Shell "cscript test.vbs"是执行的？

sunny_8848 · 发表于 2017-1-23 09:10

本帖最后由 sunny_8848 于 2017-1-23 09:11 编辑

№▁▃风筝﹋发表于 2017-1-22 22:37
Shell "cscript test.vbs"是执行的？

多谢帮助。这句代码是我在网上找来的。bat和vbs文件都可以生成，就是无法用vbs调用bat文件删除指定目录的文件及所在文件夹
ChDrive "D:" '切换当前驱动器
ChDir "D:\1" '切换到bat和vbs文件所在目录
Shell "cscript test.vbs" '运行vbs文件，其中vbs中的代码是调用bat文件

		自动登录	找回密码
密码			免费注册

[求助] 有关vbs的帖子不能回复