[VB6]åben en mappe

Hej.

Åbne den, altså kunne vælge blandt filer i mappen?

Brug enten ocx'en comdlg32.ocx eller kontrollen filelistbox.

Eksempel fra mit program:
Private Sub knfindfil_Click()
cmd.filter = "Alle Filer (*.*)|*.*| Jpg-billeder (*.jpg)|*.jpg|"
  ' Specify default filter
  cmd.FilterIndex = 2
  cmd.ShowOpen
  txtdata(23).Text = cmd.filename

Eller med filelistbox:

Private Sub File1_Click()
  Picture1.Visible = False
  Image2.Visible = False
  bil = Dir1.Path & "\" & File1.filename
  Select Case UCase(Right$(File1.filename, 3))
    Case "BMP"
        GoTo vis
    Case "GIF"
        GoTo vis
    Case "JPG"
        GoTo vis
    Case "WAV"
        GoTo spil
  End Select
  Form2.Cls
      Form2.Print
      Form2.Print
      Form2.Print
      Form2.Print Tab(4); "Filen: " & File1.filename & " er ikke et billede!"
  Exit Sub
vis:
  afspil.Visible = False
  bil = Dir1.Path & "\" & File1.filename
  On Error GoTo billedfejl
  Image2.Picture = LoadPicture(bil)
  filesize.Caption = Int(FileLen(bil) / 1000)
  Picture1.Picture = LoadPicture(bil)....

Tag det essentielle ud.

M.v.h.  Jørn

det kan jeg ikke få til at virke, men det er nu heller ikke helt det jeg mener,
lige som man kan bruge shell til at åbne en exe med, er der ikke et eller andet der kan åbne en given mappe på computeren med en knap

Hej.

Der er listview, men det er ikke en kontrol jeg bruger.  Der er mange, mange spørgsmål og svar på 'Eksperten' om brug af ListView.

M.v.h.  Jørn

Hej.

Fandt du alligevel noget der kunne bruges?  Tak for point.

m.v.h.  Jørn

ja listview  ;-)
mvh HC

Vis nogen også skulle bruge det så kan man åbne en mappe med shell
sådan her
Shell "explorer c:\", vbMaximizedFocus
mvh HC