Cómo llamar al archivo bat en VB
Tienes que escribirlo así
a = Shell(App.Path & "\data\A.bat", vbNormalFocus)
Olvidé mencionarlo, agrégalo
Solo para aclarar, cuando especifica la ruta usando (App.Path), presionar F5 para ejecutar en VB6 no encontrará el archivo. La ruta en VB6 no puede encontrar el archivo. Debe empaquetar su programa como un archivo ejecutable para ejecutarlo y asegurarse de que su archivo ejecutable esté en el mismo directorio que Datos.
Porque cuando presionas F5 para ejecutar, la ruta de tu aplicación actual es tu ruta de instalación de VB, no la ruta de almacenamiento de tus archivos de proyecto actuales. . . . . .