[讨论]文件夹复制
查看: 1334|回复: 13
[讨论]
文件夹复制
[复制链接]
x-xx-xx
x-xx-xx
当前离线
性别保密
UID3659032
阅读权限50
注册时间2017-2-12
在线时间 小时
最后登录1970-1-1
积分1359
财富
分享
技术
精华
TA的精华主题
TA的得分主题
电梯直达
1楼
发表于 2024-2-9 20:52
|
只看该作者
|倒序浏览
|阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★
模拟手动复制一个文件夹
代码能实现吗
运行后再手动按ctrl+v实现粘贴
好奇问问
分享到:
QQ好友和群
QQ空间
收藏1
分享
有用0
无用0
回复
举报
boyayes
boyayes
当前离线
性别保密
UID4001961
阅读权限30
注册时间2018-4-12
在线时间 小时
最后登录1970-1-1
积分461
财富
分享
技术
精华
TA的精华主题
TA的得分主题
2楼
发表于 2024-2-9 21:25
|
只看该作者
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★
可以使用Windows Scripting Host(WSH)进行复制哦。
语法为：
object.CopyFolder 参数1, 参数2[, 参数3]
参数1，是要复制的文件夹路径，允许包含通配符。
参数2，是要复制为的文件夹路径，不能包含通配符。
参数3，可选参数，若参数2的路径已经存在的话是否覆盖，true表示覆盖，false不覆盖(此时程序会报错,提示路径已存在)，参数3如果缺省的话，默认值为true，即默认覆盖。
示例：
截图20240209212333.png (32.92 KB, 下载次数: 79)
下载附件
2024-2-9 21:25 上传
评分
2
查看全部评分
ykcbf1100
x-xx-xx
回复
举报
x-xx-xx
x-xx-xx
当前离线
性别保密
UID3659032
阅读权限50
注册时间2017-2-12
在线时间 小时
最后登录1970-1-1
积分1359
财富
分享
技术
精华
TA的精华主题
TA的得分主题
3楼
楼主|
发表于 2024-2-10 11:09
来自手机
|
只看该作者
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★
boyayes 发表于 2024-2-9 21:25
可以使用Windows Scripting Host(WSH)进行复制哦。
语法为：
我是要复制到百度网盘，想只实现复制，然后手动粘贴
回复
举报
x-xx-xx
x-xx-xx
当前离线
性别保密
UID3659032
阅读权限50
注册时间2017-2-12
在线时间 小时
最后登录1970-1-1
积分1359
财富
分享
技术
精华
TA的精华主题
TA的得分主题
4楼
楼主|
发表于 2024-2-10 11:11
来自手机
|
只看该作者
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★
简单点的思路的话 选中指定文件夹延迟一会然后按快捷键ctrlc吧
回复
举报
x-xx-xx
x-xx-xx
当前离线
性别保密
UID3659032
阅读权限50
注册时间2017-2-12
在线时间 小时
最后登录1970-1-1
积分1359
财富
分享
技术
精华
TA的精华主题
TA的得分主题
5楼
楼主|
发表于 2024-2-10 11:13
来自手机
|
只看该作者
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★
如果能不打开文件夹一键复制就好了
回复
举报
Excel2119
Excel2119
当前离线
性别保密
UID1582513
阅读权限30
注册时间2011-11-13
在线时间 小时
最后登录1970-1-1
积分472
财富
分享
技术
精华
TA的精华主题
TA的得分主题
6楼
发表于 2024-2-22 09:42
|
只看该作者
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★
CopyFolder
回复
举报
sj15627581616
sj15627581616
当前离线
性别保密
UID3999003
阅读权限50
注册时间2018-4-8
在线时间 小时
最后登录1970-1-1
积分1213
财富
分享
技术
精华
TA的精华主题
TA的得分主题
7楼
发表于 2024-2-22 10:42
|
只看该作者
[广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★
可以做到选中文件夹 然后模拟手动复制
回复
举报
sj15627581616
sj15627581616
当前离线
性别保密
UID3999003
阅读权限50
注册时间2018-4-8
在线时间 小时
最后登录1970-1-1
积分1213
财富
分享
技术
精华
TA的精华主题
TA的得分主题
8楼
发表于 2024-2-22 10:42
|
只看该作者
[广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★
image.png (3.41 KB, 下载次数: 82)
下载附件
2024-2-22 10:42 上传
模拟手动复制部分 自行补充咯
回复
举报
sj15627581616
sj15627581616
当前离线
性别保密
UID3999003
阅读权限50
注册时间2018-4-8
在线时间 小时
最后登录1970-1-1
积分1213
财富
分享
技术
精华
TA的精华主题
TA的得分主题
9楼
发表于 2024-2-22 10:54
|
只看该作者
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★
本帖最后由 sj15627581616 于 2024-2-22 11:52 编辑
image.png (11.51 KB, 下载次数: 94)
下载附件
2024-2-22 10:54 上传
测试过可以通过powershell实现
评分
1
查看全部评分
x-xx-xx
回复
举报
sj15627581616
sj15627581616
当前离线
性别保密
UID3999003
阅读权限50
注册时间2018-4-8
在线时间 小时
最后登录1970-1-1
积分1213
财富
分享
技术
精华
TA的精华主题
TA的得分主题
10楼
发表于 2024-2-22 10:59
|
只看该作者
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★
Sub CopyFile(FilePath As Variant) '复制文件到剪切板,文件需要添加''表示文本 ""不能用 会被转义
Dim arr(4)
Set PowerShell_Script = CreateObject("WScript.Shell")
arr(0) = "$FullPath=@(" & FilePath & ")"
arr(1) = "$col=New-Object Collections.Specialized.StringCollection"
arr(2) = "foreach($File in $FullPath){$col.add($File)}"
arr(3) = "Add-Type -AssemblyName System.Windows.Forms"
arr(4) = "[System.Windows.Forms.Clipboard]::SetFileDropList($col)"
PowerShell_Script.Run "powershell.exe " & Join(arr, ";"), 0
End Sub复制代码 如果是高版本powershell更简洁 Set-Clipboard -Path "C:\1" 这样就可以了
回复
举报