[问题求助] VB调用批处理怎样在当前路径路径顺利执行？

月夜空闻

不管怎样请大家耐心的看看帮帮我，我弄了好久了就是搞不定！大家可以看出我在vb里调用了一个叫做a.bat的批处理文件，问题来了：a.bat里面有一句代码是：

adb push fonts\my.ttf /system/fonts/DroidSansFallback.ttf >> E:\a\1.txt
复制代码

我是想让他执行当前路径下的fonts\ttf但是它实际执行的是在vb中CommonDialog1.ShowOpen命令所获得路径下的fonts\ttf  所以总提示找不到文件，怎么样才能修改啊！让批处理俺当前目录路径顺利执行下去！
这是vb代码：

Private Sub Command2_Click()
Dim c As String
c = App.Path & "\a.bat"
MsgBox c
Set fso = CreateObject("Scripting.FileSystemObject")
CommonDialog1.Filter = "ALL File(*.*)|*.*"
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
MsgBox "没有选定文件", 38, "出错提示"
Else
a = CommonDialog1.FileName
b = App.Path & "\fonts\my.ttf"
MsgBox a
MsgBox b
fso.Copyfile a, b
End If
If Dir(App.Path & "\fonts\my.ttf", vbDirectory) <> "" Then
If MsgBox("确认替换？", vbYesNo) = vbYes Then
Shell (c)
End If
Else
MsgBox "未发现可用字体，请重新选择"
End If
End Sub
复制代码

这是批处理代码：

@echo off
echo 正在准备(若长时间未响应，请检查你的usb连接）...... > E:\a\1.txt
adb wait-for-device >> E:\a\1.txt
echo 连接设备成功 >> E:\a\1.txt
adb remount >> E:\a\1.txt
echo 重新挂载系统文件成功！>> E:\a\1.txt
echo 请等待正在替换...... >> E:\a\1.txt
adb push fonts\my.ttf /system/fonts/DroidSansFallback.ttf >> E:\a\1.txt
echo 替换成功！
adb shell chmod 777 -R /system/fonts/DroidSansFallback.ttf >> E:\a\1.txt
echo 权限修改成功！>> E:\a\1.txt
echo 权限修改成功！
echo 是否重启，建议重启！（y/n）？
set /p a=
if %a%==y goto A
if %a%==n goto b
:A
echo 正在重启！
adb reboot
del b\fonts\*.ttf
echo 重启成功
pause
exit
:B
del b\fonts\*.ttf
exit
pause
复制代码

CrLf

该贴标题修改后基本达标，故删除本楼原警告贴

CrLf

用绝对路径：

adb push %~dp0fonts\my.ttf /system/fonts/DroidSansFallback.ttf >> E:\a\1.txt
复制代码

或者打开 a.bat 时指定路径

c = "cmd /c ""start """" /d " & App.Path & " a.bat"""
复制代码

broly

楼主能否把VB代码中的a,b,c的值贴出来看看。我看看路径有什么问题