中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: [求助]挑出vbs错误 上一主题 | 下一主题
tempuser
高级用户





积分 547
发帖 261
注册 2006-4-15
状态 离线
『楼 主』:  [求助]挑出vbs错误

on error resume next
dim fs,dis,fold
set fs=wscript.createobject("scripting.filesystemobject")
'建立FSO模型
if (fs.folderexists("c:\temptest")) then
'如果该文件夹存在,该怎么做
dis="该文件夹存在"
else
dis="该文件夹bu存在"
set fold=fs.createfolder("c:\temptest")
'如果该文件夹存在,该怎么做
'fs.copyfolder "c:\temp"  "c:\temptest",true
end if

set fold=fs.getfolder("c:\temptest")
fold.move "d:\temp"

set fold=fs.getfolder("c:\temp")
fold.copy "d:\Temp",true
'测试copy命令没好使

set fold=fs.getfolder("c:\temp")
fold.move "d:\Temp"
'测试move命令没好使

set fold=fs.getspecialfolder(2)
'getspecialfolder(值)可取0,1,2,分别代表windows目录,system32目录和临时目录
wscript.echo fold
wscript.echo err.number & err.description   & err.source   

为什么有错误提示?

2008-3-25 17:11
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 2 楼』:  

on Error Resume Next
Dim
fs,dis,fold
Set fs = wscript.CreateObject("Scripting.FileSystemObject")
'建立FSO模型
If (fs.folderexists("c:\temptest")) Then
   
'如果该文件夹存在,该怎么做
   
dis = "该文件夹存在"
Else
   
dis = "该文件夹bu存在"
    Set fold = fs.createfolder("c:\temptest")
   
'如果该文件夹存在,该怎么做
    'fs.copyfolder "c:\temp"  "c:\temptest",true
End If

Set
fold = fs.getfolder("c:\temptest")
fold.move "d:\temp"

Set fold = fs.getfolder("c:\temp")
fold.copy "d:\Temp",True
'测试copy命令没好使

Set fold = fs.getfolder("c:\temp")
fold.move "d:\Temp"
'测试move命令没好使

Set fold = fs.getspecialfolder(2)
'getspecialfolder(值)可取0,1,2,分别代表windows目录,system32目录和临时目录
wscript.echo fold
wscript.echo Err.Number & Err.description   & Err.source

你指什么错误?我运行有权限的提示,代码上的错误不算吧?
还有测试的话,不知道C和D的TEMP有无影响不?所以测试代码的话
尽量都新建。

2008-3-25 19:06
查看资料  发短消息 网志   编辑帖子  回复  引用回复
tempuser
高级用户





积分 547
发帖 261
注册 2006-4-15
状态 离线
『第 3 楼』:  

总提示权限问题!

2008-3-26 11:36
查看资料  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 4 楼』:  



  Quote:
Originally posted by tempuser at 2008-3-26 11:36:
总提示权限问题!

应该属于正常现象。。。。。
如果把代码中的源路径和目标路径换成同一分区内的不同文件夹就不会提示权限问题了。
move的动作似乎只能在同一逻辑分区之内使用,Windows自己都是这样的,有没有发现windows下移动一个几个G的文件在同一分区内很快,而到不同的分区则很慢了,同理不同分区的move只能通过copy + createfolder 的方式解决,windows自己也如此。



好多菩提树,好多明镜台。本来好多物,好多的尘埃。
2008-3-27 00:18
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
tempuser
高级用户





积分 547
发帖 261
注册 2006-4-15
状态 离线
『第 5 楼』:  



  Quote:
Originally posted by baomaboy at 2008-3-27 00:18:


应该属于正常现象。。。。。
如果把代码中的源路径和目标路径换成同一分区内的不同文件夹就不会提示权限问题了。
move的动作似乎只能在同一 ...

你好,我是以管理员权限测试的,怎么会有权限提示的问题?

另外,经过测试,copy命令正常,而 move却提示上面的问题,为什么?

2008-3-27 10:17
查看资料  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 6 楼』:  



  Quote:
Originally posted by tempuser at 2008-3-27 10:17:

你好,我是以管理员权限测试的,怎么会有权限提示的问题?

另外,经过测试,copy命令正常,而 move却提示上面的问题,为什么?

与管理员权限无关,这应该属于系统底层问题,我上面不是说了吗,在分区之间move 的动作就连微软自己也是通过copy + createfolder 的方式实现的。分区内move 的话数据簇是不用move的,修改的只是分区表中关于此文件的储存位置的信息,所以move是个很快的过程,而分区之外的move连微软自己都要用copy +  createfolder 的方式实现,那么慢的过程。。。。。
和管理员的权限无点关联。



好多菩提树,好多明镜台。本来好多物,好多的尘埃。
2008-3-27 15:33
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: