Question

我正在尝试创建一个批处理文件，然后在这里编写批处理文件是我的代码：

Dim sr As System.IO.StreamWriter
If fso.FileExists(FolderBrowserDialog1.SelectedPath & "\ServerStart.bat") Then
    fso.DeleteFile(FolderBrowserDialog1.SelectedPath & "\ServerStart.bat")
    sr = My.Computer.FileSystem.OpenTextFileWriter(FolderBrowserDialog1.SelectedPath & "\ServerStart.bat", True)
    sr.Write("java -Xms2048m -Xmx8048m -jar " & fso.GetFileName(file) & " nogui pause")
    sr.Close()
Else
    sr = My.Computer.FileSystem.OpenTextFileWriter(FolderBrowserDialog1.SelectedPath & "\ServerStart.bat", True)
    sr.Write("java -Xms2048m -Xmx8048m -jar " & fso.GetFileName(file) & " nogui pause")
    sr.Close()
End If

当我尝试运行批处理文件时，即使文本在记事本中看起来很好，我也明白了：“'java'不被识别为内部或外部命令。所以基本上当我使用streamwriter编辑批处理文件时，它会添加：''

Answer 1

可能使用BOM unicode标记字节，使用此方法编写ISO-8859-1 ascii文件：OpenTextFileWriter（file，append，encoding） https://msdn.microsoft.com/en-us/library/ms128024(v=vs.110).aspx

如何在vba中创建批处理文件

1 个答案: