51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3056|回复: 3
打印 上一主题 下一主题

[原创] QTP中映射驱动器和拷贝文件夹的脚本

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-12-19 13:33:03 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
QTP中映射驱动器和拷贝文件夹的脚本

映射驱动器:
Set WshNetwork = CreateObject("Wscrīpt.Network")
WshNetwork.MapNetworkDrive  "z:","\\10.0.0.208\1","1","1"

删除驱动器:
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "Z:", "true","true"

拷贝文件夹:
Const ōverWriteFiles = True
Set ōbjFSO = CreateObject("scrīpting.FileSystemObject")
objFSO.CopyFolder "C:\pcnet" , "Z:\" ,OverWriteFiles

删除文件夹
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("Z:\pcnet")

[ 本帖最后由 tomtang 于 2008-5-14 16:52 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-12-19 14:10:27 | 只看该作者
又多学了一招,谢谢LZ了。

'取消映射驱动器:
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive "Z:"
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2007-12-19 14:27:59 | 只看该作者
有一个问题想问一下:
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive  "Z:","\\192.160.11.166\tmp\test", "test", "test"
我映射的是一台linux服务器,在运行后出现了"种类不一致"这个错误,请问有什么办法解决吗?

[ 本帖最后由 jinsen 于 2007-12-19 15:51 编辑 ]
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2007-12-19 15:51:22 | 只看该作者
顶一下,也请大家一起帮忙看看。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-11 01:36 , Processed in 0.077168 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表