Dim fso,TestFile,name Set fso=CreateObject(Scripting.FileSystemObject) name = InputBox(请输入文件名字!) if name then Set TestFile=fso.CreateTextFile(name&.vbs,Ture) TestFile.Close else msgbox新建不成功,请输入文件名并按确定! end if
Dim fso,Text Set fso = WScript.CreateObject(Scripting.FileSystemObject) Set ws = CreateObject(wscript.shell) Set MyFile = fso.CreateTextFile(F:\text.txt,True) MyFile.WriteLine(abcd) MyFile.Close Set File = fso.OpenTextFile(F:\text.txt, 1) Text = File.ReadLine Clipboard = MsHta vbscript:ClipBoardData.SetData(Text,&Text&)(Window.Close) ws.Run(Clipboard) File.Close Set MyFile = fso.GetFile(F:\text.txt) MyFile.Delete