Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mit "GetDirectory" Ordner auswählen

Mit "GetDirectory" Ordner auswählen
02.09.2003 14:46:35
Detlef
Hallo zusammen,
ich habe folgendes Problem. Mit untem abgebildetem Code aus dem Archiv wähle ich einen Ordner aus. Das funktioniert auch sehr gut, ich möchte allerdings schon einen Verzeichnisspfad vorgeben an dessen Ende dann nur noch drei oder vier Ordner zur Auswahl stehen. Bei dem Code den ich jetzt benutze muß ich mich immer vom Arbeitsplatz über die Unterordner bis zu diesen drei oder vier Ordnern durch klicken.
Ich hoffe es kann mir jemand helfen...

Vielen Dank schon mal,
Gruß Detlef

Function GetDirectory(Optional Msg As String) 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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit "GetDirectory" Ordner auswählen
02.09.2003 15:15:00
Michael Scheffler
Hallo Detlef,

nö geht nicht. Wenn Du nur Files auswählen willst, warum nicht Application.GetOpenFileName?

Gruß

Micha
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige