Dateibrowser einen Pfad zuteilen

[Terminator2]

Hi!
Ich habe jetzt einen Dateibrowser in das Programm eingefügt. Wie kann ich jetzt diesem einen festen Pfad zuordnen und diejenige Datei öffnen (nur Bilder sind vorhanden), die ich auswähle? Eine PictureBox habe ich ebenfalls eingebaut.

 

[thekorn]

So:

Public Sub bild_oeffnen()
    ChDir "\"
    ChDrive "c:"
    ChDir "c:\windows"
    Datei = Application.GetOpenFilename("Bilder (*.jpg;*.gif), *.jpg;*.gif")
    If Datei <> False Then
        MsgBox Datei
    End If
End Sub

gruß
thekorn

 

[Terminator2]

Hi.

Wo muss ich denn diesen Code eintragen? In welche Prozedur? In die der Liste oder wohin?

 

[thekorn]

Direkt vor "GetOpenFilename", nehme ich mal an, wenn das mit deinen anderen Thread zutun hat!

Gruß
thekorn

 

[Terminator2]

Hier erstmal das ganze Programm:

Private Sub Data1_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub Aufnahme_Click()
Shell "C:\Programme\CyberLink\PowerDVD\PowerDVD.exe"
End Sub

Private Sub DVD_Click()
Shell "C:\Programme\CyberLink\PowerDVD\PowerDVD.exe"
End Sub

Public Sub Files_oeffnen()
ChDir "\"
ChDrive "c:"
ChDir "c:\eigene dateien\eigene bilder\2005\August"
End Sub

Private Sub Öffnen_Click()
FileToOpen = Application.GetOpenFilename("Bilddateien (*.jpg), *.jpg", , "Öffnen", , "False")
End Sub

So. Und Dann noch das Bild des Programmes. Wo soll ich also den Code deines ersten Posts eintragen, damit ich immer das Dateisystem in dieser Liste unten Links hab?

 

[Terminator2]

Was ist nun? Weiß jemand, wie ich das machen muss?

 

[Terminator2]

Warum meldet sich denn keiner?
Ich bekomme jetzt immer die Dateien aus dem Ordner, aus dem ich das Programm gestartet habe, angezeigt. Wie lege ich einen anderen fest?