您的位置 首页 百科知识

跨盘移动文件夹骇客基地 入门 -电脑资料

跨盘移动文件夹骇客基地 入门 -电脑资料

跨盘移动文件夹跨盘移动文件夹的怪问题

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)存在才可以

上一篇 写触动心灵的人和事
下一篇 中国散打高手
扫一扫,手机访问

扫一扫,手机浏览