“qq群聊名字怎么复制粘贴“qq群怎么隐藏名字!-拍拖百科

收到网友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 Collec " & vbCrLf & _
        "foreach($file in $filelist){$col.add($file)}" & vbCrLf & _
        "Add-Type -AssemblyName Sy; & vbCrLf & _
        "[Windows.Forms.Clipboard]::setfiledroplist($col)"
    
    Shell pscode, vbHide    '执行代码并隐藏窗口
    
    MsgBox "文件已复制！"
End Sub

关键是Powershell中的语句：

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

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

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