bat文件见附件，试验时将bat文件放在某个中文文件夹，代码如下，执行时修改的路径认不出来了，执行会出错，请老师看看如何 修改？Dim batfilename As String = ProjectPath & "mydll\MxDraw52\RegMxDrawX.bat"
Dim OldText As String = FileSys.ReadAllText(batfilename)
Dim dirsz() As String = batfilename.Split("\")
Dim dirstr As String = "cd\" & vbcrlf & dirsz(0) & vbcrlf
For n As Integer = 1 To dirsz.Length -2
dirstr = dirstr & "cd " & dirsz(n) & vbcrlf
Next
dirstr = dirstr.trim(vbcrlf)
MessageBox.Show(OldText)
Dim NewText = OldText.Replace("%~d0" & vbcrlf & "cd %~dp0",dirstr)
FileSys.WriteAllText(batfilename,NewText,False)
MessageBox.Show(NewText)
Dim Proc As New Process
Proc.File = batfilename
On Error Resume Next
Proc.Start()
Proc.WaitForInputIdle()
If Err.Number <> 0 Then
MessageBox.Show("控件注册失败!")
Else
MessageBox.Show("控件注册成功!")
End If
FileSys.WriteAllText(batfilename,OldText,False)
[此贴子已经被作者于2017/9/4 13:11:15编辑过]
加好友 
发短信
Post By：2017/9/4 12:38:00 [显示全部帖子]
