Dim Request As FtpWebRequest = WebRequest.Create(TextBox6.Text)
                    Dim Response As FtpWebResponse
 
                    Request.Credentials = New NetworkCredential(TextBox2.Text, _
                      TextBox3.Text)
                    Request.Method = WebRequestMethods.Ftp.Rename
                    Request.Timeout = (60000 * 1) ' 60000 * No of minutes
                    Request.RenameTo = "*.sav"
 
                    Response = Request.GetResponse()
                    Response.Close()