Hola para crear un .bat con codigo puede ser asi;
en el siguiente ejemplo al pulsar un command1(boton), se crea un archivo .bat en la carpeta temp y despues del comando pause se autoelimina.
tambien lo podrias eliminar con visual basic con el comando kill y la ruta al .bat
ejemplo con un commandbutton:
Cita: Private Sub Command1_Click()
'creamos el archivo .bat en la carpeta temp'
'contiene instruccion para autoeliminarse'
'despues del pause'
Open Environ("temp") + "\prueba.bat" For Output As #1
Print #1, "@echo off"
Print #1, "title Prueba de archivo bat"
Print #1, "echo Esto es un archivo bat"
Print #1, "echo."
Print #1, "pause"
Print #1, "erase %temp%\prueba.bat"
Close #1
'ejecutamos el archivo'
Shell (Environ("temp") + "\prueba.bat"), vbNormalFocus
End Sub
EN CUANTO a saber si esta instalado el mysql en un directorio u otro, podrias usar la instruccion DIR de visual basic para saber si existe el directorio en concreto o no.
un ejemplo para saber si existe un directorio es este:
el siguente ejemplo averigua si existe la carpeta del emule instalada en archivos de programa:nota para saber si existe un archivo, cambias vbDirectory
Cita: Private Sub Command1_Click()
If Dir(Environ("programfiles") + "\eMule", vbDirectory) <> "" Then
MsgBox "La carpeta del emule existe en tu pc"
Else
MsgBox "la carpeta del emule NO EXISTE en tu pc"
End If
End Sub
salu2 espero te sirvan los ejemplos....