crear un archivo....

[MeGo85]

hola a todos,
mi pregunta es la siguiente:

Como hago para crear un archivo de texto y escribir algo en el.
estoy  intentando haciendo esto:

 Private Sub Image1_click()
    Shell "cmd.exe /c md C:\hack "
    Shell "cmd.exe /c copy con C:\hack\hackeado.txt"
    End
 End Sub

pero cuando se ejecuta esto se abre una ventana de Simbolo de sistema,  en la cual
yo deberia escribir el texto que ira en el archivo "hackeado.txt", pero lo yo quiero hacer es crear el archivo de texto, y que en ese archivo se escriba un texto que yo tenga en una variable tipo String por ejemplo,  o en un TextBox.

Espero que hallan entendido mi pregunta,
si me pueden ayudar les agradeceria bastante.


                                                                     
***MeGo***

[ranefi]

Hola MeGo85. Aquí te dejo algo:

Código:

'AGREGAR UN BOTÓN DE COMANDO AL FORMULARIO Y COPIAR LO SIGUIENTE

Private Sub Command1_Click()
            Dim Archivo As String
            Dim NumArchivo As Long

            Archivo = "C:\PseudoHacking.txt" 'ESTABLECEMOS RUTA Y NOMBRE DE ARCHIVO
            NumArchivo = FreeFile() 'BUSCA UN NÚMERO DE ARCHIVO LIBRE

'----    ¡CUALQUIER SEMEJANZA CON LA REALIDAD, ES MERA COINCIDENCIA ;-)-----!
            Open Archivo For Output As #NumArchivo
                        '---TAMBOR PUEDES EMPLEAR CUADROS DE TEXTO AQUÍ---
                        'EJEMPLO: Print #NumArchivo, Text1.Text 'SUPONIENDO QUE EXISTE Text1
                        Print #NumArchivo, "Hola mundo"
                        Print #NumArchivo, "Estoy haciendo pruebas con la PC de un pobre"
                        Print #NumArchivo, "cristiano, jajajajajaja"
                        Print #NumArchivo, "Me encanta dañar PC's"
                        Print #NumArchivo, "Porque después me llaman pa' repararlas"
                        Print #NumArchivo, "MUHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAA"
            Close #NumArchivo
                        '-------------------------------------------------
'--------------------------------------------------------------------------
'---DUDAS, CHISTES O COMENTARIOS: http://foro.portalhacker.net/index.php?board=17.0
End Sub

Espero y esto responda a tu duda. Au revoir.