color item listbox y leer y guardar .txt

[-rommel_]

A ver amigo te ayudo...
para eliminar un archivo

Código vb:

Private Sub EliminarArch (strRuta as string)
   Dim fsO as New FileSystemObject
   if fsO.FileExists (strRuta) Then fsO.DeleteFile strRuta
   set fsO = Nothing
End sub
 

Para Copiar Archivos a otra Ruta...

Código vb:

Private Sub CopiarArch(strRutaOrig as String, strRutaFin as String )
   Dim fsO as New FileSystemObject
   if not fsO.FileExists (strRutaFin) Then fsO.CopyFile strRutaOrig strRutaFin
   set fsO = Nothing
End Sub
 

Para Crear un Archivo...

Código vb:

Private Sub CrearArch(strRuta)
    Dim nFile as integer
    ' FreeFile, captura el Indice del Primer Archivo que no se esta utilizando, inicialmente 1
    ' si hubiera otro freefile, obtendria el valor 2
    nFile = freeFile
    'Aqui creamos un Archivo con OUTPUT para Crearlo VACIO
    Open strRuta For OutPut As #nFile
    ' Aqui agregamos data al archivo creado
    Write #nFile, "Data agregada" 'que puede ser Data del ListBox
    'Es mas todo esto lo ponemos dentro de un FOR
    Close #nFile
End Sub
 

Para Leer Datos de un Archivo...

Código vb:

Private Sub LeerArch (strRuta As String)
   Dim nFile as Integer
   nFile = FreeFile
   'Abrimos el Archivo con INPUT para LEER
   Open strRuta For Input As nFile
   'Almacena TODO el contenido en el TextBox
   me.txtContenido.text = Input$(LOF(nFile), #nFile)
   'Cierra el Archivo
   Close #nFile
End Sub
 

Aqui te dejo un Ejemplo de Recorrer el Archivo...

Código vb:

Private Sub RecorrerArchivo(strRuta as String)
   Dim nFile as Integer
   nFile = FreeFile
   ' Abrimos con Append para Agregar AL FINAL DEL ARCHIVO
   Open strRuta For Append As #nFile
   'Recorremos el List adicionando al Archivo
   For i=0 To Me.ListDatos.ListCount - 1
       Print #nFile, Me.ListaDatos.List(i)
   next i
   Close #nFile
   ''''
   'Aqui recorremos para guardar los datos en otro list
   Dim LineaArch as String
   nFile = freeFile
   Open strRuta For Input As #nFile
   While Not EOF(nFile)
        Line Input #nFile, LineaArch
        Me.ListDatos2. AddItem LineaArch
   Wend
   #Close #nFile
End Sub
 

Espero te sirva amigo...