VBS文件保存爲TXT文件

Question

當前詞典我想批處理文件保存爲TXT文件 當前詞典例如

 currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-  (len(WScript.ScriptName))) 
    WScript.Echo currentDirectory 
    currentdirectory > currentDirectory.txt 

Answer 1

如果你想有一個批處理文件，也沒有必要使用WScript的。只是cd是不夠的：

cd > c:\currentDir.txt 

而且使用cscript和VBS：

currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-  (len(WScript.ScriptName))) 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.CreateTextFile("currentDirectory.txt") 
objFile.WriteLine (currentDirectory) 
objFile.Close