2010-02-04 49 views
26

是否有可能創建一個文件並在vbscript中寫入行?創建和寫入文件的行

東西類似於回聲在蝙蝠文件(echo something something >>sometextfile.txt)。

根據腳本的路徑執行vbscript將創建autorun.inf文件以執行特定程序(\ smartdriverbackup \ sdb.exe)。

另外,我怎樣才能從完整的文件路徑中去除/刪除驅動器號?

回答

82
Set objFSO=CreateObject("Scripting.FileSystemObject") 

' How to write file 
outFile="c:\test\autorun.inf" 
Set objFile = objFSO.CreateTextFile(outFile,True) 
objFile.Write "test string" & vbCrLf 
objFile.Close 

'How to read a file 
strFile = "c:\test\file" 
Set objFile = objFS.OpenTextFile(strFile) 
Do Until objFile.AtEndOfStream 
    strLine= objFile.ReadLine 
    Wscript.Echo strLine 
Loop 
objFile.Close 

'to get file path without drive letter, assuming drive letters are c:, d:, etc 
strFile="c:\test\file" 
s = Split(strFile,":") 
WScript.Echo s(1) 
+0

謝謝ghostdog74的答案我已經試過腳本。它的工作原理,我需要把它放到實際應用中。 – 2010-02-04 11:00:26

+0

我在編寫帶引號的文本行時遇到了問題,例如:這是一個「測試」「字符串」。除了iF,我想要一個變量值用引號括起來,我不能。 – 2010-02-06 10:10:50

+0

你必須逃避報價。嘗試'「」「」' – ghostdog74 2010-02-06 10:25:24

4

您需要處理File System Object。見OpenTextFile方法示例。

+4

@hdgarrood,如果你進入一輛車,發現方向盤丟失或隱藏從普通的角度來看,你會是一個「幫助吸血鬼」,如果你尋求幫助?每個人都必須重新發明輪子,因爲前一個人懶得無法正確實施F1(或者他們是這樣做的目的是爲了創造「諮詢」的需求 - 你知道它是如何工作的) – Sam 2013-06-24 07:01:07

+0

我提高了這個答案,因爲它指出了提問者正確的方向,同時還要求他/她進行一點研究和思考,而不是爲他/她做所有的工作。 (儘管我很遺憾使用「幫助吸血鬼」一詞) – hdgarrood 2013-06-24 10:30:57

+2

我不是在這裏學習VBScript。我在這裏寫一個單獨的腳本,除了給一個文件寫一個字符串外,並且(如果一切按照計劃進行的話),我再也不會再觸摸這個語言。如果這讓我成爲「幫助吸血鬼」,那就這樣吧。 – 2014-09-30 15:39:07