跨盘移动文件夹的怪问题
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
时间： 2024-11-08 21:52:42
vbs fso跨盘移动文件夹的怪问题_vbs的相关文章
VBS获取当前目录下所有文件夹名字的代码_vbs
VBS获取当前目录下所有文件夹名字,不包括子文件夹.我要给每个文件夹进行操作,所以最好用循环输出. 测试的时候要保证当前目录下有文件夹才可以,否则输出为空. 复制代码 代码如下: Set ws=WScript.CreateObject("wscript.shell")w=ws.CurrentDirectorySet fso=WScript.CreateObject("scripting.filesystemobject")Set fs=fso.GetFolder(w
酷盘的文件夹如何与好友共享
酷盘的文件夹与好友共享的方法如下: 在文件列表页选中任意文件夹右键呼出菜单选择"共享文件夹"选项, 或者在右侧信息栏上选择"共享文件夹"选项, 就会弹出窗口, 输入需要邀请共享的好友电子邮件地址就可以将这个文件夹共享给好友了.
U盘变成文件夹图标的三大策略
第一种解决策略: 在u盘里新建一个文本文档,内容如下: @echo on taskkill /im explorer.exe /f rem 结束病毒进程(以u.vbe病毒的进程w.exe为例) taskkill /im w.exe start reg add HKCUSOFTWAREMicrosoftWindowsCurrentVersionEXplorerAdvanced /v ShowSuperHidden /t REG_DWORD /d 1 /f start reg import ki
监听如果打开D盘某个文件夹，自动执行某些操作
问题描述 监听如果打开D盘某个文件夹,自动执行某些操作请问各位大虾,这样的程序用什么来做呀?之前找过用FileSystemWatcher来做,不过只能监听创建.修改.重命名等操作,不能监听打开操作的 解决方案 本帖最后由 csdyjb1682 于 2011-12-17 21:55:42 编辑解决方案二:该回复于2011-12-19 10:30:28被版主删除解决方案三:spry++打开看看你都知道怎么做了使用win32apifindwindow解决方案四:我也不太懂,能不能给个实例...解决方案
复制文件到c盘windows文件夹下的system32的批处理写法_DOS/BAT
现在想从"C:\Program Files\常用绿色软件\soft\"将'FinalData.exe'.'OfficeDiary.exe'.'DisplayX.exe'这三个程序拷贝到'C:\WINDOWS\system32'并覆盖原有的三个,应该怎么编写??? 问题1:批处理的编写支持长文件夹和长文件名吗? 问题2:批处理的编写支持中文文件夹吗? 问题3:覆盖原有文件会出现提示吗?如果会,怎么让它不提示直接覆盖了? @echo off for %%a in (FinalData Of
windows.vbs.FSO.文件操作信息.磁盘驱动信息.文件夹操作信息全集_vbs
源址: http://www.zhouguoqing.com.cn/article.asp?id=50 ' FSO 文件操作相关 ' FSO 参数详解: ' Fso.IsRootFolder=True|False '是否为根目录 ' Fso.GetFolder '读取文件夹 用法:Set fldr = fso.GetFolder("C:\\目录2") ' Fso.FolderExists=True|False '查找此文件夹是否存在 ' Fso.CreateFolder
vbs复制文件夹的实现代码_vbs
需要实现一个复制文件夹的功能,网上找到相关代码,并做了改进,vbs脚本如下 复制代码 代码如下: Dim fso, CopyCountSet fso = CreateObject("Scripting.FileSystemObject") CopyCount = CopyCount + XCopy(fso, ".\1", ".\2", True)MsgBox "拷贝了" & CopyCount & "
vbs,hta中选择文件夹对话框实现代码_vbs
复制代码 代码如下: on error resume next SelectFolder function SelectFolder() Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(MY_COMPUTER) Set
使用FSO自动创建多级文件夹
当我们用fso来生成静态页面的时候,通常都会希望生成的位置能整洁,明了.比如按年月日来划分,那么就会需要得到一个形如:"2009/6/"这样或者更多级的文件夹,所以我就写了一个自动创建多级文件夹的函数,在生成静态页面等方面使用非常方便. 当我们用fso来生成静态页面的时候,通常都会希望生成的位置能整洁,明了.比如按年月日来划分,那么就会需要得到一个形如:"2009/6/"这样或者更多级的文件夹,所以我就写了一个自动创建多级文件夹的函数,在生成静态页面等方面使用非常方