VBS实现将字符串写入剪切板的实现代码

函数代码:

Sub CopyString(s) 
Set forms=WScript.CreateObject("forms.form.1") 
Set textbox=forms.Controls.Add("forms.textbox.1").Object 
With textbox 
.multiline=True 
.text=s 
.selstart=0 
.sellength=Len(.text) 
.copy 
End With 
End Sub 

'调用

CopyString "积木网 www.gimoo.net" 

完整测试代码

Sub CopyString(s) 
Set forms=WScript.CreateObject("forms.form.1") 
Set textbox=forms.Controls.Add("forms.textbox.1").Object 
With textbox 
.multiline=True 
.text=s 
.selstart=0 
.sellength=Len(.text) 
.copy 
End With 
End Sub 
CopyString "积木网 www.gimoo.net" 
msgbox "ok"

用VBScript实现压缩目录中的所有文件(Zip)
OnErrorResumeNextDimobjFSO,sourcepath,targetpath,targetfileFunctionGetSourceFile(path)Dimfile,folder,sfolder,subfolder,filesIfNotobjFSO.FolderExists(path)ThenMsgbox"目标文件夹不存在！"Elseobj

用VBScript实现解压缩目录中的所有文件(Zip)
OnErrorResumeNextDimobjFSO,sourcepath,targetpathFunctionGetZipFile(path)Dimfile,folder,sfolder,subfolder,filesIfNotobjFSO.FolderExists(path)ThenMsgbox"目标文件夹不存在！"ElseobjFSO.CreateFold

VBScript压缩单个文件为zip格式
OnErrorResumeNextDimfso,fp,oApp,targetfileSetfso=CreateObject("Scripting.FileSystemObject")targetfile="D:tmp.zip"Setfp=fso.OpenTextFile(targetfile,2,True)fp.WriteChr(80)&Chr(75)&Chr(5)&Chr(6)&String(