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