davidsuarez.es

Sub Form_Load()
Me.Caption = App.Title

With Me.ListView1
.MousePointer = ccDefault
.View = lvwReport
.Arrange = lvwNone
.LabelEdit = lvwManual
.BorderStyle = ccFixedSingle
.Appearance = cc3D
.OLEDragMode = ccOLEDragManual
.OLEDropMode = ccOLEDropNone

.HideColumnHeaders = False
.HideSelection = False
.LabelWrap = False
.MultiSelect = False
.Enabled = True
.AllowColumnReorder = True
.Checkboxes = False
.FlatScrollBar = False
.FullRowSelect = True
.GridLines = True
.HotTracking = False
.HoverSelection = False

.Sorted = True
.SortKey = 0
.SortOrder = lvwAscending

.ColumnHeaders.Add , , “File”, 1500
.ColumnHeaders.Add , , “Size”, 1000, lvwColumnRight

.ColumnHeaders.Add , , “Date & Time”, 1700
.ColumnHeaders.Add , , “Attr”, 700
.ColumnHeaders.Add , , “Dir”, 10000

SetColumnHeader Me.ListView1, Me.ImageList1

Set lItem = .ListItems.Add(, , “autoexec.bat”)
lItem.ListSubItems.Add , , Format(FileLen(“c:\autoexec.bat”),
“###,###,##0″)
lItem.ListSubItems.Add , ,
Format(FileDateTime(“c:\autoexec.bat”), “DD-MM-YYYY HH:MM:SS”)
lItem.ListSubItems.Add , , sAttr(GetAttr(“c:\autoexec.bat”))
lItem.ListSubItems.Add , , “c:\”

End With
End Sub

Vota este artículo:
Posts anterior y posterior:


Posts Relacionados:

• canalvisualbasic
• Web de recursos de Visual basic.
• Renombrar un archivo (Visual basic)
• Copiar un archivo (Visual Basic)
• Crear Base de datos desde visual basic