标题: [已解决]VBS怎样把内容复制到粘贴板中？ [打印本页]
作者: qwerty 时间: 2011-1-29 15:58 标题: [已解决]VBS怎样把内容复制到粘贴板中？
想通过运行a.vbs来实现把某一路经下的文件夹名字逐个复制到粘贴板中。
即运行后要求输入一个路径，确定后把该路径下的第一个文件夹名字复制到粘贴板中，然后弹出信息提示框“下一个”，点“下一个”后再把下一个文件夹名字复制进去。直到全部文件夹名字全部复制一遍。
XP活win7系统下没有装过任何跟VB有关的程序
不知能否实现，如果可以该如何实现？
[ 本帖最后由 qwerty 于 2011-2-9 14:45 编辑 ]
作者: broly 时间: 2011-1-29 17:52
- Dim strPath,fso,fc,f,strAns
- strPath="D:\mail" '此处为文件夹名字
- Set fso=CreateObject("Scripting.FileSystemObject")
- Set fc=fso.GetFolder(strPath).SubFolders
- For Each f In fc
- Call SetClipboardText(f.Name)
- strAns=MsgBox(f.Name&"已复制，下一个？",vbYesNo+vbInformation,"提示")
- If strAns<>vbYes Then WScript.Quit
- Next
- Sub SetClipboardText(Text) '写入信息到剪切板
- Dim wsh
- Set wsh = CreateObject("WScript.Shell")
- wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
- set wsh=Nothing
- End Sub
作者: qwerty 时间: 2011-2-9 14:33 标题: 回复 2楼 的帖子
谢谢！谢谢！非常感谢！正是我想要的。。。
| 欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |