[已解决]VBS怎样把内容复制到粘贴板中？

qwerty

想通过运行a.vbs来实现把某一路经下的文件夹名字逐个复制到粘贴板中。

即运行后要求输入一个路径，确定后把该路径下的第一个文件夹名字复制到粘贴板中，然后弹出信息提示框“下一个”，点“下一个”后再把下一个文件夹名字复制进去。直到全部文件夹名字全部复制一遍。

XP活win7系统下没有装过任何跟VB有关的程序


不知能否实现，如果可以该如何实现？

[ 本帖最后由 qwerty 于 2011-2-9 14:45 编辑 ]

broly

1. Dim strPath,fso,fc,f,strAns
   
2. strPath="D:\mail" '此处为文件夹名字
   
3. Set fso=CreateObject("Scripting.FileSystemObject")
   
4. Set fc=fso.GetFolder(strPath).SubFolders
   
5. For Each f In fc
   
6.   Call SetClipboardText(f.Name)
   
7.   strAns=MsgBox(f.Name&"已复制，下一个？",vbYesNo+vbInformation,"提示")
   
8.   If strAns<>vbYes Then WScript.Quit
   
9. Next
   
10. Sub SetClipboardText(Text)   '写入信息到剪切板
    
11.     Dim wsh
    
12.     Set wsh = CreateObject("WScript.Shell")
    
13.     wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
    
14.     set wsh=Nothing
    
15. End Sub

复制代码

qwerty

谢谢！谢谢！非常感谢！正是我想要的。。。