Powershell能否将文件列表写入剪切板

523066680

想实现一个功能：在某个文件夹鼠标右键粘贴来自于不同目录的Files
这个操作在Explorer中操作不成功（或者说是不同的目录复制粘贴要分批操作），考虑用脚本将文件列表一次写入剪切板，
所以咨询下，Powershell可以向剪切板写入文件列表吗？

用伪代码表达我的问题就是，能不能这样：
clipboard.setAs(
       ("C:\movie.mkv",
        "E:\multi.avi",
        "D:\demo.flac"),  "FILE"
);

victorwoo

dir | clip.exe

DAIC

回复 2# victorwoo


    dir不能满足“自于不同目录的Files”这个要求吧

CrLf

如果只是文件名那好办，不用 clip.exe 的办法是：
（以 powershell -sta 启动后）

1. Add-Type -Assembly PresentationCore
   
2. $a='a.txt','b.txt','c.txt'
   
3. [Windows.Clipboard]::SetText($a -join "`n")

复制代码

复制文件可以这样:

1. $filelist = 'c:\a.txt','d:\b.txt'
   
2. $col = New-Object Collections.Specialized.StringCollection
   
3. foreach($file in $filelist){$col.add($file)}
   
4. [Windows.Clipboard]::setfiledroplist($col)

复制代码

----------------------------------------------------------------
不过这种事其实用 ahk 更合适，复制文件名：

1. Clipboard:= "c:\a.txt`r`nd:\b.txt"

复制代码

复制文件：

1. FileAppend, %ClipboardAll%, c:\a.txt
   
2. FileAppend, %ClipboardAll%, d:\b.txt

复制代码

523066680

回复 4# CrLf


    ahk这么方便论坛不设一个AHK的版块?

523066680

回复 4# CrLf


    由衷感谢CRLF童鞋，
FileAppend, %ClipboardAll%, C:\Find.Me.Guilty.2006.720p.BluRay.x264-WiKi.mkv
FileAppend, %ClipboardAll%, C:\Survival.Code.aka.Borealis.2013.SUB.720p.WEB-DL.x264.AC3-SmY.mkv

怪我没去看帮助文件，执行这两句话后我的电影变成1KB了…… T_T

这东西的作用

Writes text to the end of a file (first creating the file, if necessary).

ahk的那些功能好像也就和nircmd差不多？

CrLf

回复 6# 523066680


    噗...我看手册复制偏了...
忽然发现 ahk 好像没法直接复制文件，请教了一下 tmplinshi 大师，得到了一大坨代码：

1. #NoEnv
   
2. #SingleInstance Force
   
3. SetWorkingDir %A_ScriptDir%
   
4. SetBatchLines -1
   
5. 
   
6. fileList := "
   
7. (LTrim
   
8.         js.txt
   
9.         e:\我的文档\桌面\vcode\18.jpg
   
10. )"
    
11. FileToClipboard(fileList)
    
12. 
    
13. FileToClipboard(PathToCopy, Method="copy")
    
14. {
    
15.         ; 展开为完整路径
    
16.                 Loop, Parse, PathToCopy, `n, `r
    
17.                         Loop, %A_LoopField%
    
18.                                 PathToCopy_Full .= "`n" A_LoopFileLongPath
    
19.                 PathToCopy := Trim(PathToCopy_Full, "`n")
    
20. 
    
21.         FileCount:=0
    
22.         PathLength:=0
    
23. 
    
24.         ; Count files and total string length
    
25.         Loop,Parse,PathToCopy,`n,`r
    
26.         {
    
27.                 FileCount++
    
28.                 PathLength += StrLen(A_LoopField)
    
29.         }
    
30. 
    
31.         pid:=DllCall("GetCurrentProcessId","uint")
    
32.         hwnd:=WinExist("ahk_pid " . pid)
    
33.         ; 0x42 = GMEM_MOVEABLE(0x2) | GMEM_ZEROINIT(0x40)
    
34.         hPath := DllCall("GlobalAlloc","uint",0x42,"uint",20 + (PathLength + FileCount + 1) * 2,"UPtr")
    
35.         pPath := DllCall("GlobalLock","UPtr",hPath)
    
36.         NumPut(20,pPath+0),pPath += 16 ; DROPFILES.pFiles = offset of file list
    
37.         NumPut(1,pPath+0),pPath += 4 ; fWide = 0 -->ANSI,fWide = 1 -->Unicode
    
38.         Offset:=0
    
39.         Loop,Parse,PathToCopy,`n,`r ; Rows are delimited by linefeeds (`r`n).
    
40.                 offset += StrPut(A_LoopField,pPath+offset,StrLen(A_LoopField)+1,"UTF-16") * 2
    
41. 
    
42.         DllCall("GlobalUnlock","UPtr",hPath)
    
43.         DllCall("OpenClipboard","UPtr",hwnd)
    
44.         DllCall("EmptyClipboard")
    
45.         DllCall("SetClipboardData","uint",0xF,"UPtr",hPath) ; 0xF = CF_HDROP
    
46. 
    
47.         ; Write Preferred DropEffect structure to clipboard to switch between copy/cut operations
    
48.         ; 0x42 = GMEM_MOVEABLE(0x2) | GMEM_ZEROINIT(0x40)
    
49.         mem := DllCall("GlobalAlloc","uint",0x42,"uint",4,"UPtr")
    
50.         str := DllCall("GlobalLock","UPtr",mem)
    
51. 
    
52.         if (Method="copy")
    
53.                 DllCall("RtlFillMemory","UPtr",str,"uint",1,"UChar",0x05)
    
54.         else if (Method="cut")
    
55.                 DllCall("RtlFillMemory","UPtr",str,"uint",1,"UChar",0x02)
    
56.         else
    
57.         {
    
58.                 DllCall("CloseClipboard")
    
59.                 return
    
60.         }
    
61. 
    
62.         DllCall("GlobalUnlock","UPtr",mem)
    
63. 
    
64.         cfFormat := DllCall("RegisterClipboardFormat","Str","Preferred DropEffect")
    
65.         DllCall("SetClipboardData","uint",cfFormat,"UPtr",mem)
    
66.         DllCall("CloseClipboard")
    
67.         return
    
68. }

复制代码

CrLf

回复 6# 523066680


    ahk 比 nircmd 强大太多了好吧

523066680

回复 7# CrLf


    屌炸天

yuanye002

ahk确实不错的。
呵呵，能够得到 tmplinshi大神的指点，不错啊。