中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-04 11:08

欢迎新会员 hello8888666　 RSS
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 请vbs高手分析这段代码错在哪里？？查看 801　回复 3

楼主 请vbs高手分析这段代码错在哪里？？发表于 2007-05-02 15:29　·　中国湖北武汉电信

stornager

中级用户

★★

scriptlover

积分 328
发帖 131
注册 2007-03-25 22:17
19年会员
UID 82910
性别男

状态离线

Dim fso,WshShell
Set fso=CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "C:\test.txt"

set WshShell=Wscript.CreateObject("WScript.WshShell")
Do
fso.CopyFile "C:\test.txt","D:\test.txt"
WScript.Sleep 6000
Loop
这段程序运行时会显示无法找到名为"WScript.WshShell"的”automation"的类
为什么会这样？？？

scriptlover
Be with script forever!!

第 2 楼发表于 2007-05-02 15:33　·　中国河北保定联通

baomaboy

银牌会员

★★★

积分 1,513
发帖 554
注册 2005-12-30 00:50
20年会员
UID 48180
性别男

状态离线



Dim fso,WshShell

Set fso=CreateObject("Scripting.FileSystemObject")

fso.CreateTextFile "C:\test.txt"



Set WshSHell=WScript.CreateObject("WScript.Shell")

'set WshShell=Wscript.CreateObject("WScript.WshShell")

Do

fso.CopyFile "C:\test.txt","D:\test.txt"

WScript.Sleep 6000

Loop

好多菩提树，好多明镜台。本来好多物，好多的尘埃。

第 3 楼发表于 2007-05-02 15:33　·　中国陕西西安电信

slore

铂金会员

★★★★

积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别男

状态离线

CreateObject("Wscript.Shell")

第 4 楼发表于 2007-05-02 15:43　·　中国湖北武汉电信

stornager

中级用户

★★