Verzeichnis wählen

Bild

Betrifft: Verzeichnis wählen
von: junny
Geschrieben am: 20.11.2003 07:45:49

Hallo Leute,
hab eine


Function in der das Vereichnis ausgewählt wird, O.K.
Nun wie muss ich die Zeilen (ich denke es geht um folgende)
bInfo.pidlRoot = 0&
bInfo.ulFlags = &H1
verändern, dass ich nicht vom Desktop aus mich durchklicken muss, sondern schon in einem gewissen Ordner anfange (Bsp. X:\Reklamationen\...)
DANKE Grüsse volker

Function getdirectory(Optional msg) As String
    Dim bInfo As BROWSEINFO
    Dim Path As String
    Dim r As Long, x As Long, pos As Integer
    bInfo.pidlRoot = 0&
    If IsMissing(msg) Then
        bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
    Else
        bInfo.lpszTitle = msg
    End If
    bInfo.ulFlags = &H1
    x = SHBrowseForFolder(bInfo)
    Path = Space$(512)
    r = SHGetPathFromIDList(ByVal x, ByVal Path)
    If r Then
        pos = InStr(Path, Chr$(0))
        getdirectory = Left(Path, pos - 1)
    Else
        getdirectory = ""
    End If
End Function

Bild


Betrifft: AW: Verzeichnis wählen
von: GerdW
Geschrieben am: 20.11.2003 11:56:50

Ich würde Fragen zu API- Funktionen in einem VB- Forum stellen,
da ist die Chance auf Antwort einfach größer.

Gerd


Bild


Betrifft: Danke Gerd, das werd ich versuchen
von: junny
Geschrieben am: 20.11.2003 13:05:27

o.T.


Bild

Beiträge aus den Excel-Beispielen zum Thema " Verzeichnis wählen"