Crear fichero con extensión ya definida

[invisible_hack]

Veréis, primero de todo disculpad si mi duda es un tanto básica (supongo que si) pero es que he estado Googleando de alante atrás y de atrás alante y no he encontrado solución a mi problema...

Estoy haciendo un editor de Batch sencillito en VB, tengo dos textbox y un commandbutton dentro de un form ¿no?

El textbox primero (de nombre Text1) es un textbox grande, mutilinea, donde se supone que el usuario tiene que escribir el código de su .bat que quiere generar...

El otro textbox es para que el usuario escriba el nombre que le quiere dar a su .bat

Bien, todo me va correcto, cuando escribo por ejemplo pepe.bat en el text2 y escribo cualquier código en el text1, y le doy al botón, me genera sin problemas el .bat con el codigo que he escrito dentro...

Pero quería hacerlo un poco más profesional y que solo crease archivos con extensión .bat, es decir, porque si el usuario, en el textbox2 le pone de nombre al archivo pepe.html pues le crearía el archivo .html, y yo lo que quiero es hacer un generador unicamente de .bats, no de archivos en general 

Es decir, imaginemos que el usuario escribe en el textbox2 de nombre juan, pues quiero que mi programa, al darle al commandbutton, genere ya el archivo juan.bat sin necesidad de que el usuario tenga que teclear ninguna extensión, tan solo el nombre del archivo...

Es decir, lo que no sé hacer es como hacer para que el programa solo genere .bat`s...porque tal y como lo tengo ahora, el usuario podria generar .txt, html, php....es decir, todos los tipos de archivos que se pueden generar con el bloc de notas, pero yo quiero hacerlo solo para generar .bats...

Saludos thanks...

[peib0l]

que pedazo de explicacion.... XD

pues lo que tienes que hacer es almacenar ese nombre en una bariable y añadirle .bat

[& eDu &]

Puedes hacer que no acepte . sería una cosa asi al presionar el boton

Código (vb) [Seleccionar] Expandir

If instr(Text2.text,".") Then
MsgBOx "Hay un punto en el campo del nombre"
Else
'Aqui generas el bat
End If

[Karcrack]

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
   If Left$(LCase$(Text2.Text), Len(".bat")) <> ".bat" Then
       MsgBox "La extension ha de ser .bat" 'Mostramos un mensaje
       Exit Sub 'Salimos del procedimiento Command1_Click
   End If
   'Aqui tu codigo
End Sub

Recuerda que hay diferentes caracteres que no pueden existir en una ruta/fichero...

Saludos

MOD: ", ? , ¿, \, >, <, |

[XcryptOR]

si tienes juan en text2 pues al darle click en el commandbutton tienes que agregar: text2.text & ".bat" asi concatenas el nombre que el usuario ingresa en el text2 y la extensión en este caso .bat

[& eDu &]

si tienes juan en text2 pues al darle click en el commandbutton tienes que agregar: text2.text & ".bat" asi concatenas el nombre que el usuario ingresa en el text2 y la extensión en este caso .bat

Eso no es lo que el pregunta, el pregunta que después de Juan pueden poner los usuarios las extensiones que quieran y él solo quiere que se ponga un nombre, ninguna extensión.

[XcryptOR]

deberias leer un poco mejor, ademas mira el titulo del post

[XcryptOR]

Tambien puedes utilizar el commondialog control

Código (vb) [Seleccionar] Expandir


CommonDialog1.Filter = "*.bat"
CommonDialog1.ShowSave


[& eDu &]

deberias leer un poco mejor, ademas mira el titulo del post

Sabes rectifiacr tus fallos... bueno bueno

[invisible_hack]

si tienes juan en text2 pues al darle click en el commandbutton tienes que agregar: text2.text & ".bat" asi concatenas el nombre que el usuario ingresa en el text2 y la extensión en este caso .bat

Perfecto!! Resulta que lo que me faltaba era ese maldito simbolo de &....

Ains...que dolores de cabeza puede dar un solo signo....increíble...

Muchisimas gracias a todos, cuando termine mi creación prometo que os la dedicaré a Elhacker.net