Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » Manejo de archivos en listview

Visual Basic.NET - Manejo de archivos en listview

Volver
Nuevo Tema
<<>>
 
Vista:

Manejo de archivos en listview

Publicado por jlmc22 (5 intervenciones) el 05/09/2012 15:05:47
Buenas gente! Estoy desarrollando un sistema, y uno de los requerimientos es que en un control listview, listbox o textbox (lo que me recomienden), me muestre el nombre del archivo mas viejo que exista en un determinado fichero o directorio. El codigo que les dejo sirve para listar TODOS los archivos en un listview.
Agradezco su tiempo! saludos!

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim d As New DirectoryInfo("C:\PDF\")
Frm_Fir.ListFirmar.View = View.Details
Frm_Fir.ListFirmar.FullRowSelect = True
Frm_Fir.ListFirmar.BeginUpdate()
Frm_Fir.ListFirmar.Items.Clear()
For Each f As FileInfo In d.GetFiles
 
Dim item As New ListViewItem(f.Name)
item.SubItems.Add(f.LastWriteTime)
Frm_Fir.ListFirmar.Items.Add(item)
Next
Frm_Fir.ListFirmar.EndUpdate()
Me.Close()
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Manejo de archivos en listview

Publicado por David (46 intervenciones) el 05/09/2012 19:50:12
Hola,
no se si entendi bien pero solo deverias insertar unas intucciones a tu for algo asi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim d As New DirectoryInfo("C:\PDF\")
Dim fecha As DateTime = CType("01/01/2050", Date)
Dim Valor As String = ""
Frm_Fir.ListFirmar.View = View.Details
Frm_Fir.ListFirmar.FullRowSelect = True
Frm_Fir.ListFirmar.BeginUpdate()
Frm_Fir.ListFirmar.Items.Clear()
For Each f As FileInfo In d.GetFiles
 
Dim item As New ListViewItem(f.Name)
item.SubItems.Add(f.LastWriteTime)
Frm_Fir.ListFirmar.Items.Add(item)
            If fecha > f.LastWriteTime Then
                fecha = f.LastWriteTime
                Valor = f.Name
            End If
Next
Frm_Fir.ListFirmar.EndUpdate()
Me.Close()
Me.TextBox1.Text = fecha
Me.TextBox2.Text = Valor

suerte saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Manejo de archivos en listview

Publicado por jlmc22 (5 intervenciones) el 05/09/2012 21:21:25
Gracias por la respuesta David, en realidad lo que quiero hacer es traer de un directorio el archivo mas viejo de todos los que hayan. Ese codigo que deje es de como listar todos los archivos de un directorio en un listview, pero como dije antes, quiza me recomiendan usar otro control, ya que solo necesito un solo archivo del directorio.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Manejo de archivos en listview

Publicado por David (46 intervenciones) el 06/09/2012 17:39:34
este codigo solo ubica el archivo mas antiguo
1
2
3
4
5
6
7
8
9
10
11
12
Dim d As New DirectoryInfo("C:\PDF\")
        Dim fecha As DateTime = CType("01/01/2050", Date)
        Dim Valor As String = ""
        For Each f As FileInfo In d.GetFiles
            If fecha > f.LastWriteTime Then
                fecha = f.LastWriteTime
                Valor = f.Name
            End If
        Next
        MsgBox(fecha & " " & Valor)
        'aqui el textbox con el resultado

        Me.TextBox1.Text=Valor

Por "traer" te refieres a copiar el archivo, abrir el archivo o solo ubicar el nombre?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Manejo de archivos en listview

Publicado por jlmc22 (5 intervenciones) el 06/09/2012 22:02:28
Gracias de nuevo David... Por traer me referia a solo ubicar el nombre y mostrarlo. Esto que me pasaste me lo soluciona. Muchas gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar