vbs fso跨盘移动文件夹的怪问题
跨盘移动文件夹的怪问题
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)存在才可以相关阅读:
系统安全:Windows与Linux平台
ASP.NET(C#) 定时执行一段代码
Chrome最新4.0版本支持GreaseMonkey脚本
HTML表格标记教程(45):表格的表主体标记
相对算是完美的菜单
asp中创建多级目录的两段代码
CSS教程:一张图片实现圆角
PHP图片验证码类
用函数式编程技术编写优美的 JavaScript
从A页面连接到B页面后并直接把B页面的隐藏层显示
用PHP调用数据库的存贮过程
javascript 打字游戏实现代码
web标准知识——从p开始,循序渐进
ASP.NET 利用Web.config配置数据