文件夹复制

x-xx-xx

模拟手动复制一个文件夹
代码能实现吗
运行后再手动按ctrl+v实现粘贴

好奇问问

boyayes

可以使用Windows Scripting Host(WSH)进行复制哦。

语法为：
object.CopyFolder 参数1, 参数2[, 参数3]
参数1，是要复制的文件夹路径，允许包含通配符。
参数2，是要复制为的文件夹路径，不能包含通配符。
参数3，可选参数，若参数2的路径已经存在的话是否覆盖，true表示覆盖，false不覆盖(此时程序会报错,提示路径已存在)，参数3如果缺省的话，默认值为true，即默认覆盖。
示例：

x-xx-xx

boyayes 发表于 2024-2-9 21:25
可以使用Windows Scripting Host(WSH)进行复制哦。

语法为：

我是要复制到百度网盘，想只实现复制，然后手动粘贴

x-xx-xx

简单点的思路的话 选中指定文件夹延迟一会然后按快捷键ctrlc吧

x-xx-xx

如果能不打开文件夹一键复制就好了

Excel2119

CopyFolder

sj15627581616

可以做到选中文件夹 然后模拟手动复制

sj15627581616

  模拟手动复制部分 自行补充咯

sj15627581616

测试过可以通过powershell实现

sj15627581616

1. Sub CopyFile(FilePath As Variant) '复制文件到剪切板,文件需要添加''表示文本 ""不能用 会被转义
   
2.     Dim arr(4)
   
3.     Set PowerShell_Script = CreateObject("WScript.Shell")
   
4.     arr(0) = "$FullPath=@(" & FilePath & ")"
   
5.     arr(1) = "$col=New-Object Collections.Specialized.StringCollection"
   
6.     arr(2) = "foreach($File in $FullPath){$col.add($File)}"
   
7.     arr(3) = "Add-Type -AssemblyName System.Windows.Forms"
   
8.     arr(4) = "[System.Windows.Forms.Clipboard]::SetFileDropList($col)"
   
9.     PowerShell_Script.Run "powershell.exe " & Join(arr, ";"), 0
   
10. End Sub

复制代码

如果是高版本powershell更简洁 Set-Clipboard -Path "C:\1"   这样就可以了