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

qwerty

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

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

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


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

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

qwerty

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

broly

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
复制代码