Sub Button2_Click
If Button2.Text="Save" Then
File.WriteString(File.DirRootExternal, "Master.txt", EditText1.text)
File.WriteString(File.DirRootExternal, "Group.txt", EditText3.text)
End If
If Button2.Text="ASK" Then
Dim ftp As FTP
ftp.PassiveMode=True
ftp.DownloadFile("/" & EditText3.text & "/0.txt", False, File.DirRootExternal, "0.txt")"
ftp.Close
End If
End Sub