映射驱动器和拷贝文件夹的VBS

上一篇 / 下一篇  2007-12-19 13:29:18 / 个人分类:QTP

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

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

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

删除文件夹
Set ōbjFSO = CreateObject("scrīpting.FileSystemObject")
objFSO.DeleteFolder("Z:\pcnet")



TAG: QTP

 

评分:0

我来说两句

Open Toolbar