Ver Mensaje Individual
  #9 (permalink)  
Antiguo 05/07/2010, 16:54
Avatar de -rommel_
-rommel_
 
Fecha de Ingreso: junio-2008
Ubicación: Lima
Mensajes: 360
Antigüedad: 15 años, 10 meses
Puntos: 1
Respuesta: color item listbox y leer y guardar .txt

A ver amigo te ayudo...
para eliminar un archivo
Código vb:
Ver original
  1. Private Sub EliminarArch (strRuta as string)
  2.    Dim fsO as New FileSystemObject
  3.    if fsO.FileExists (strRuta) Then fsO.DeleteFile strRuta
  4.    set fsO = Nothing
  5. End sub
Para Copiar Archivos a otra Ruta...
Código vb:
Ver original
  1. Private Sub CopiarArch(strRutaOrig as String, strRutaFin as String )
  2.    Dim fsO as New FileSystemObject
  3.    if not fsO.FileExists (strRutaFin) Then fsO.CopyFile strRutaOrig strRutaFin
  4.    set fsO = Nothing
  5. End Sub
Para Crear un Archivo...
Código vb:
Ver original
  1. Private Sub CrearArch(strRuta)
  2.     Dim nFile as integer
  3.     ' FreeFile, captura el Indice del Primer Archivo que no se esta utilizando, inicialmente 1
  4.    ' si hubiera otro freefile, obtendria el valor 2
  5.    nFile = freeFile
  6.     'Aqui creamos un Archivo con OUTPUT para Crearlo VACIO
  7.    Open strRuta For OutPut As #nFile
  8.     ' Aqui agregamos data al archivo creado
  9.    Write #nFile, "Data agregada" 'que puede ser Data del ListBox
  10.    'Es mas todo esto lo ponemos dentro de un FOR
  11.    Close #nFile
  12. End Sub
Para Leer Datos de un Archivo...
Código vb:
Ver original
  1. Private Sub LeerArch (strRuta As String)
  2.    Dim nFile as Integer
  3.    nFile = FreeFile
  4.    'Abrimos el Archivo con INPUT para LEER
  5.   Open strRuta For Input As nFile
  6.    'Almacena TODO el contenido en el TextBox
  7.   me.txtContenido.text = Input$(LOF(nFile), #nFile)
  8.    'Cierra el Archivo
  9.   Close #nFile
  10. End Sub
Aqui te dejo un Ejemplo de Recorrer el Archivo...
Código vb:
Ver original
  1. Private Sub RecorrerArchivo(strRuta as String)
  2.    Dim nFile as Integer
  3.    nFile = FreeFile
  4.    ' Abrimos con Append para Agregar AL FINAL DEL ARCHIVO
  5.   Open strRuta For Append As #nFile
  6.    'Recorremos el List adicionando al Archivo
  7.   For i=0 To Me.ListDatos.ListCount - 1
  8.        Print #nFile, Me.ListaDatos.List(i)
  9.    next i
  10.    Close #nFile
  11.    ''''
  12.   'Aqui recorremos para guardar los datos en otro list
  13.   Dim LineaArch as String
  14.    nFile = freeFile
  15.    Open strRuta For Input As #nFile
  16.    While Not EOF(nFile)
  17.         Line Input #nFile, LineaArch
  18.         Me.ListDatos2. AddItem LineaArch
  19.    Wend
  20.    #Close #nFile
  21. End Sub
Espero te sirva amigo...

Última edición por -rommel_; 05/07/2010 a las 17:00