Hola, alguien sabe como copiar un archivo de texto a otro temporal para omitir algunos datos
Mi formulario es el siguiente:


el boton eliminar debe eliminar el registro seleccionado del listbox y del archivo de texto, y el boton buscar debe buscar cierto dato y mostrar los faltantes en las casillas. son los que me falta programar.
se que para eliminar un archivo utilizo kill, y para renombrarlo utilizo Name

mi codigo es el siguiente:

Código:

	
 Código:
	
Option Explicit
Dim nombre As String
Dim hect As Double
Dim costo As Double
Dim Desc As Double
Dim precio As Double
Dim tipo As Integer
Dim Total As Double
Dim totalc As Double
Dim I As Integer
Dim contenido As String
Dim num As Integer
Dim registro As String
Dim archivos As String
Dim x As Integer
 
 
Private Sub CboTipo_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
 
Private Sub CmdBuscar_Click()
If LstDatos.Selected Then
 
End Sub
 
Private Sub CmdCapturar_Click()
nombre = TxtNombre
hect = Val(TxtHect)
 
Select Case CboTipo.ListIndex
Case 0: tipo = "1"
precio = hect * 100
Case 1: tipo = "2"
precio = hect * 200
Case 2: tipo = "3"
precio = hect * 300
End Select
 
 
If hect >= 100 And hect < 300 Then
Desc = precio * 0.05
ElseIf hect >= 300 And hect < 500 Then
Desc = precio * 0.1
ElseIf hect >= 500 Then
Desc = precio * 0.15
Else
Desc = 0
End If
 
costo = precio - Desc
x = x + 1
 
LstDatos.AddItem x & " " & nombre & " " & tipo & " " & hect & " " & costo
 
totalc = totalc + costo
LblTotal = totalc
 
 
archivos = "C:\Registros.txt"
num = FreeFile
Open archivos For Append As num
Print #num, x, nombre, tipo, hect, costo
Close
 
End Sub
 
Private Sub CmdLimpiar_Click()
TxtNombre = ""
TxtHect = ""
CboTipo.Refresh
 
End Sub
 
Private Sub CmdSalir_Click()
End
End Sub
 
Private Sub Form_Load()
totalc = 0
x = 0
End Sub