VB6 CommonDialog.ShowOpen nur Odner öffnen lassen

killer-Trekkie · 13.10.2004

Sevus allerseits,

ich hab mal ne Frage: Wie kann ich CommonDialog.ShowOpen einen Orner zurückgeben lassen (also eine *.TXT oder *EXE sondern einen Ordner)?

Vielen Dank für eure Hilfe.

Julian

Michael · 13.10.2004

Hi

Für Ordner gibt es einen eigenen Dialog, weiß aber nicht wie der in VB heißt.

Gruß, Michael

Fizbin · 13.10.2004

Für Ordner gibt es einen eigenen Dialog, weiß aber nicht wie der in VB heißt.

DirListBox

(bei den Standart-Steuerelementen)

killer-Trekkie · 13.10.2004

Ja schon, aber ich möchte gern was haben, dass (wie beim Common Dialog) ein neues Fenster öffnet und einen Pfad zurückgibt. Kann man vielleicht beim Common Dialog im Filter angeben, dass nur Ordner ausgewählt werden können?

Julian

Alexander16 · 13.10.2004

Hi

Die Common Dialog-Komponente unterstützt keine Ordnerauswahl. Hier aber eine Möglichkeit, die dir eine Ordnerauswahl ermöglicht und dir den ausgewählten Pfad zurückgibt:

Code:

Private Function OrdnerDialog() As String
    Dim oShell As Object
    Dim oOrdner As Object
    
    Set oShell = CreateObject(Shell.Application)
    Set oOrdner = oShell.BrowseForFolder( _
        Me.hWnd, Bitte einen Ordner auswählen, 1)
        
    If Not oOrdner Is Nothing Then
        OrdnerDialog = oOrdner.Self.Path
    End If
    
    Set oOrdner = Nothing
    Set oShell = Nothing
End Function

Die Verwendung ist ganz einfach:

Code:

Private Sub Command1_Click()
    Text1.Text = OrdnerDialog
End Sub

Mfg Alexander

killer-Trekkie · 13.10.2004

Vielen Dank. Genau das hab ich gesucht.

MFG

Julian

VB6 CommonDialog.ShowOpen nur Odner öffnen lassen

killer-Trekkie

Michael

Fizbin

killer-Trekkie

Alexander16

killer-Trekkie

VB6 CommonDialog.ShowOpen nur Odner öffnen lassen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums