国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbs fso跨盤移動文件夾的怪問題

2020-07-26 11:55:25
字體：大 中 小
來源：轉載
供稿：網友
跨盤移動文件夾的怪問題
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder "C:/Scripts" , "d:/2"
權限拒絕，但是copy就可以。可以采用變通的辦法先復制再刪除
========================================wmi=================
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = 'c://Scripts'")
For Each objFolder in colFolders
errResults = objFolder.Rename("d://VBScript")
Wscript.Echo errResults
Next
錯誤碼13，估計是更名的時候不允許ren c:/1 d:/2這樣的格式
========================Shell.Application可以成功====================
Const FOF_CREATEPROGRESSDLG = &H0&
TargetFolder = "c:/3"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(TargetFolder)
objFolder.MoveHere "d:/downloads", FOF_CREATEPROGRESSDLG
但是必須目標文件夾（像本例的是c:/3）存在才可以

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 石门县| 乐昌市| 饶阳县| 肥乡县| 巴彦淖尔市| 安阳市| 山东省| 台中市| 昆山市| 湘潭市| 阳东县| 祁连县| 凤山县| 石渠县| 海晏县| 汝南县| 内黄县| 吉木萨尔县| 通渭县| 澄城县| 庄浪县| 巨鹿县| 凤庆县| 铜山县| 丽江市| 黑龙江省| 道真| 常熟市| 阿巴嘎旗| 越西县| 卓尼县| 宁陕县| 贡觉县| 永平县| 长顺县| 建阳市| 忻城县| 常宁市| 平舆县| 丰城市| 苍山县|