Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

FileDialog inkl. Anklicken von Desktop, Eigene D.

FileDialog inkl. Anklicken von Desktop, Eigene D.
19.05.2008 22:56:26
Desktop,
Guten Abend
Mit nachfolgender Funktion, die ich mit Hilfe des Forums realisieren konnte, ermittle ich den Pfad eines Ordners. Das klappt soweit gut, indem ich nach Aufruf des FileDialog über "suchen in" den gewünschten Ordner anwählen kann.
Wenn ich jedoch im gleichen Suchfenster links die Symbole (Shortcuts) Desktop, Eigene Dateien, Arbeitsplatz anklicke, passiert nichts.
Kann diese Möglichkeit zusätzlich aktiviert werden?
Danke für eine Rückmeldung.
Peter

Function PfadWählen() As String
Dim oFS As Object, oFolder As Object, oFile As Object
Dim WKB As Workbook
With Application.FileDialog(4)
.InitialFileName = "C:\"
.InitialView = 2
.Title = "Bitte einen Ordner wählen"
If .Show = -1 Then
PfadWählen = .SelectedItems(1) & "\"
Else
Exit Function
End If
End With
End Function


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: FileDialog inkl. Anklicken von Desktop, Eigene D.
20.05.2008 10:15:20
Desktop,
Hallo,
geht doch.
Gruß
Rudi

AW: FileDialog inkl. Anklicken von Desktop, Eigene D.
20.05.2008 10:17:00
Desktop,
Hallo Rudi
Bei mir sind die Schaltflächen (desktop, Eigene Dateien etc.) nicht anwählbar, resp. beim Anklicken passiert nix.
Gruss, Peter

AW: FileDialog inkl. Anklicken von Desktop, Eigene D.
20.05.2008 10:51:00
Desktop,
Hallo Rudi
Geht tatsächlich! Weshalb es gestern abend nicht funktionierte, bliebt eine Rätsel - ist nun jedoch belanglos.
Vielen Dank!
Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige