Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" ( _
  ByVal hwnd As Long, _
  ByVal lpOperation As String, _
  ByVal lpFile As String, _
  ByVal lpParameters As String, _
  ByVal lpDirectory As String, _
  ByVal nShowCmd As Long) As Long
 
Private Sub Form_Load()
  Dim sPath As String
  Dim sFile As String
 
  sPath = "d:\temp\"
 
  With Grid1
    .LockUpdate True
    .DataMode = Mode_List
 
    .Tag = sPath
 
    .Clear
    If .Cols = 0 Then
      .ColumnAdd "date", "Datum", 1200, ALIGNMENT_CENTER, , , , , SORT_DATE
      .ColumnAdd "file", "Dateiname"
    End If
 
    sFile = Dir$(sPath & "*.*")
    Do While Len(sFile) > 0
      If sFile <> "." And sFile <> ".." Then
        .AddItem FileDateTime(sPath & sFile) & vbTab & sFile
      End If
      sFile = Dir$
    Loop
 
    .DoSort 1, SORT_ASC
 
    .LockUpdate False
    .Refresh
    .Columns("file").AdjustWidthToGridSize
  End With
End Sub
 
Private Sub Grid1_CellDblClick(ByVal nRow As Long, ByVal nCol As Long)
  ' Datei öffnen
  With Grid1.SelectedItem
    ShellExecute 0&, "open", Grid1.Tag & .CellText("file"), "", "", 1
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de