Partial Class Default3
    Inherits System.Web.UI.Page
    Structure CMOR
        <VBFixedString(10)> Public MT As String
        <VBFixedString(10)> Public MO As String
        <VBFixedString(10)> Public MUL As String
        <VBFixedString(10)> Public SUELD As String
    End Structure

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error GoTo 500
        If TextBox1.Text = "1234mas" Then
            REM            Const OverwriteExisting = True
            Dim PAT As String
            PAT = System.AppDomain.CurrentDomain.BaseDirectory()
            Dim objFSO As Object
            objFSO = CreateObject("Scripting.FileSystemObject")
            objFSO.CopyFile(PAT + "ARCHIVOS\*.DAT", "C:\ARCHIVOS\")
            REM OverwriteExisting
            objFSO.DeleteFile(PAT + "ARCHIVOS\*.DAT")
            TextBox2.Text = "TAREA REALIZADA"
        End If
        Exit Sub
500:    TextBox2.Text = "NO EXISTEN ARCHIVOS"
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim PAT As String
        PAT = System.AppDomain.CurrentDomain.BaseDirectory()
        FileOpen(1, PAT + "ARCHIVOS\MORA", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Shared, 40)
        Dim CMO As New CMOR
        FileGet(1, CMO, 1)
        TextBox3.Text = Trim(CMO.MT)
        FileClose()
        Button2.Attributes.Add("onclick", "history.back(); return false;")
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "1234mas" Then
            Dim PAT As String
            PAT = System.AppDomain.CurrentDomain.BaseDirectory()
            FileOpen(1, PAT + "ARCHIVOS\MORA", OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Shared, 40)
            Dim CMO As New CMOR
            FileGet(1, CMO, 1)
            CMO.MT = Trim(TextBox3.Text)
            FilePut(1, CMO, 1)
            FileClose()
        End If
    End Sub

    Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub
End Class