主页 > 知识库 > vbs fso跨盘移动文件夹的怪问题

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

热门标签:龙岩400电话申请 机器人打电销适用于美业吗 企业400电话办理价钱低 墨西哥地图标注app 天津智能外呼系统排名 上海办理400电话选号 外呼系统群 外呼系统说话声音小怎么办 智云亿呼电话机器人
跨盘移动文件夹的怪问题
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)存在才可以

标签:承德 鄂尔多斯 青岛 齐齐哈尔 黄山 阜新 锡林郭勒盟 丽水

巨人网络通讯声明:本文标题《vbs fso跨盘移动文件夹的怪问题》,本文关键词  vbs,fso,跨盘,移动,文件夹,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《vbs fso跨盘移动文件夹的怪问题》相关的同类信息!
  • 本页收集关于vbs fso跨盘移动文件夹的怪问题的相关信息资讯供网民参考!
  • 推荐文章