Necesito ayuda programa de ficheros

amanda21
27 de Octubre del 2005
Hola,necesito haber si me podeis ayudar con un programa para el intituto.

El programa consiste en:
-Hay dos formularios, uno principal y otro secundario.El primer formulario trabaja con directorios de windows, pero a mi me interesa el segundo formulario.Esta compuesto por 3 textbox y un boton de guardar.En estos textbox yo le he de introducir un nombre de fichero con cualquier extension y la ruta donde he de encontrar unos ficheros de texto y la ruta de donde he de guardarlos.
Bueno yo necesito saber como esta información que he introducido en los textbox se me graban estas 3 lineas en un fichero con el nombre que he introducido en el primer textbox y como puedo hacerlo para que al cargarse el formulario principal lea este fichero y sepa las rutas donde tiene que guardar todas las operaciones que he de hacer.
Lo siento ,es un poco liado, pero me harias un gran favor si me giaseis.

Muchas gracias por leerme.

Piojoman
27 de Octubre del 2005
Dim Texto As String
Private Sub Command1_Click()
Open (Ruta.Text) For Output As #1
Print #1, Text2 & " " & Text3
Close #1
End Sub
Private Sub Form_Load()
Msg = InputBox("Ingresa la ruta del archivo txt y nombre incluyendo extension. Ej: C:Ejemplo.txt", "Ruta del TXT")
On Error Resume Next
Open Msg For Input As #1
If Err Then
MsgBox ("El fichero " & sNombreFichero & " no existe.")
Exit Sub
Else
Line Input #1, Texto
Lectura
End If
Close #1
End Sub
Function Lectura()
Num = Num + 1
Inicio = 1
Do While Num <= Len(Texto)
Lec = Mid(Texto, Num, 1)
If Lec = " " Then
Fin = Num - 1
Text2.Text = Mid(Texto, Inicio, Fin)
Text3.Text = Mid(Texto, (Fin + 2), (Len(Texto) - Fin))
Exit Do
End If
Num = Num + 1
Loop
End Function

'Me falto poner otro textbox ponelo vos la idea es esta... el ejemplo necesita tres textbox, Uno llamado Ruta, y los otros dos Text y Text2 y un boton Command1