Private Sub Save_Data(ByVal savepath As String, ByVal getpath As String)
        Dim FiStr As FileStream = _
        New FileStream(savepath, FileMode.Create)
        Dim StrWr As StreamWriter = New StreamWriter(FiStr)
        StrWr.WriteLine(getpath)
        StrWr.Close()
    End Sub