Board logo

标题: [已解决]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

  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    时间: 2011-2-9 14:33     标题: 回复 2楼 的帖子

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2