?
Solved

File list with attributes in vb6

Posted on 2007-10-01
5
Medium Priority
?
524 Views
Last Modified: 2012-05-05
Does anyone know how to setup a file list like you would see in windows that will show file attributes such as filename, path, date modified, date created, image dimensions, audio length  for example
Filename     Path                   date modified      date created     dimensions
my.jpg       c:\pictures          01/01/2001         12/31/2000      1200x1400
her.jpg      c:\pictures          01/01/2001          12/31/2000     800x600
my.mp3    c:\mp3s               09/09/2007         09/08/2000     12m 45s

layed out in a table that can be sorted by individual columns?  I'm trying to build a universal bulk renaming program with some other enhancements
0
Comment
Question by:cpaulinski
  • 2
  • 2
5 Comments
 
LVL 32

Expert Comment

by:Robberbaron (robr)
ID: 19997026
perhaps a grid would be best and disable selection of some columns.

try the flexGrid.
0
 
LVL 32

Assisted Solution

by:Robberbaron (robr)
Robberbaron (robr) earned 400 total points
ID: 19997049
it can be done in listbox also but I dont think it scrolls horizontally to enable viewing all data or user resize of column widths.

http://www.freevbcode.com/ShowCode.asp?ID=103

for the flexgrid method, you need to add your own sort routines.
heres an extract from my app that uses flexgrid to display data. it gets data from a dataset but could easily be file data

    fgdContacts.AddItem " Organisation" & vbTab & " Person" & vbTab & " Sets" & vbTab & " Method " & vbTab & "ID"
    fgdContacts.CellAlignment = flexAlignCenterCenter
   
    Do While Not rs_contact.EOF
        fgdContacts.AddItem rs_contact.Fields("Organisation") & vbTab & rs_contact.Fields("FirstName") & " " & rs_contact.Fields("LastName") & vbTab & "" & vbTab & "" & vbTab & rs_contact.Fields("PContactNo")
        fgdContacts.CellAlignment = flexAlignCenterCenter
       
        'fgdContacts.Tag = rs_contact.Fields("PContactNo")
        fgdContacts.FixedRows = 1

        rs_contact.MoveNext
    Loop
    rs_contact.Close

0
 
LVL 7

Expert Comment

by:tward
ID: 19997609
Look at the ListView Control, it has the column headers in which you can sort by clicking on the columns.
0
 
LVL 7

Accepted Solution

by:
tward earned 1600 total points
ID: 19997684
0
 

Author Comment

by:cpaulinski
ID: 19998149
Thanks tward. I will check it out and see if I can get anything from it.
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses

807 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question