vb valor existencia de material txt

[jilo2011]

codigo = Label25.Caption
producto = Label3.Caption
Prec = Label11.Caption
existencias = Label24.Caption

If producto = Label3.Caption Then

existencias = existencias - Val(Text2.Text)

archivo = App.Path & "\Productos.dat"
Open archivo For Append As #1
Write #1, codigo, producto, Prec, existencias
Close

End If

Hola soy jilo2011
esta rutina lo que hace es descontar un producto de existencia de material, y lo hace.
el problema es que a la hora de guardar me añade el mismo articulo repetido en el archivo productos.dat, ya he probado de hacerlo con open archivo for output as #1, pero solo me guarda el articulo entrado, los demas articulos se borran.

[JonathanB]

Saludos, como tu mismo lo mencionas. Si abres un archivo como Append, estarás agregando contenido al archivo. Si lo abres como Output, estarás sobrescribiendo el contenido del archivo.

Puedes comenzar a buscar Archivos de Acceso Aleatorio para comenzar, ya que aquí se guarda una estructura y con eso mismo puedes ubicar dentro del archivo la información y poder modificarla.
http://support.microsoft.com/es-es/kb/150700/es

Otra opción para comenzar, si tienes un set de productos ya definidos, es un archivo ini.
http://www.forosdelweb.com/f69/leer-archivo-ini-961341/

Investiga un poco y descubre cual es la mejor solución a tu proyecto.