电脑如何把文件拖拽到qq微信帮你复制多个文件到微信

导读收到网友A的一个提问，要一次复制多个文件到微信或QQ中，复制文件比较多，每天更新后要发给不同部门的同事，操作比较烦琐，有什么好方法解决？其实，PC端的微信与....

收到网友A的一个提问，要一次复制多个文件到微信或QQ中，复制文件比较多，每天更新后要发给不同部门的同事，操作比较烦琐，有什么好方法解决？

其实，PC端的微信与QQ都有这样的功能，按Ctrl键选中多个文件，Ctrl C复制，在对话框中Ctrl V粘贴，按发送就能把多个文件发过去。

网友A当然知道这个功能，问题是要选中多个文件，必须在同一个文件夹中，如果不在同一文件夹，就无法复制了。

确实，如果不在同一文件夹下，多次复制文件是比较麻烦的。好吧，写段代码，让网友A点一下鼠标就能实现复制多个文件这一功能。

不多说，先来个效果图

代码的思路很简单：列出要复制文件路径，把文件复制到剪贴板中

Sub getClipboard() Dim fileList As String, pscode As String arr = Range("A2:A5") 文件路径 For i = 1 To UBound(arr) fileList = fileList & "," & arr(i, 1) & "" Next fileList = Mid(fileList, 2, 999) 文件列表 pscode = "Powershell $filelist =" & fileList & vbCrLf & _ "$col = New-Object Collections.Specialized.StringCollection " & vbCrLf & _ "foreach($file in $filelist){$col.add($file)}" & vbCrLf & _ "Add-Type -AssemblyName System.Windows.Forms" & vbCrLf & _ "[Windows.Forms.Clipboard]::setfiledroplist($col)" Shell pscode, vbHide 执行代码并隐藏窗口 MsgBox "文件已复制！"End Sub

关键是Powershell中的语句：

# 路径单引号括住，逗号隔开$filelist =C:\a.txt,D:\log_file.txt,E:\日报.xlsx,F:\文件\abc.txt#储存字符串的集合，相当于数组$col = New-Object Collections.Specialized.StringCollection#储存字符串的集合，相当于数组foreach($file in $filelist){$col.add($file)}#加载程序集Add-Type -AssemblyName System.Windows.Forms#放到剪贴板中[Windows.Forms.Clipboard]::setfiledroplist($col)

PS：代码引用了Powershell，win7及以上的系统是自带的。如果系统太落后，可以用api来实现。

如果你喜欢本文，请转发分享一下，想要获得更多信息，关注我吧！,