Directory vbs文件以txt文件形式保存当前词典

我希望批处理文件将当前词典保存为txt文件 比如说

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

---

如果需要批处理文件，则无需使用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