Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ordner name übernhemen

Forumthread: Ordner name übernhemen

Ordner name übernhemen
09.06.2006 12:22:07
Swen
Hallo an alle,
gibt es eine möglichkeit
einen Folder name ähnlich wie hier
hier
Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("JPG Files (*.jpg), *.jpg")
der Filename ausgewählt werden kann
auszuwählen.
Gruß
Swen
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner name übernhemen
09.06.2006 13:01:57
Matthias
Hallo Swen,
z.B. so:

Sub test()
MsgBox GetOrdner("C:\") 'Die Vorauswahl kannst du auch weglassen
End Sub
'Ordnerauswahl
Function GetOrdner(Optional ByVal def = "")
Dim objShell As Object, objfolder As Object
Set objShell = CreateObject("Shell.Application")
Set objfolder = objShell.BrowseForFolder(0, "Bitte einen Ordner wählen", 0, def)
If objfolder Is Nothing Then Exit Function
GetOrdner = objfolder.Self.Path
End Function

Gruß Matthias
Anzeige
AW: Ordner name übernehmen - Notlösung
09.06.2006 13:04:41
fcs
Hallo Swen,
ich meine ich hätte hier im Forum schon eine "elegante" Lösung gesehen.
Hier meine Notlösung, die aus einem Dateinamen den Pfad ermittelt.

Sub Ordner()
Dim Path As Variant
Path = Application.GetOpenFilename("(Alle), *.*")
If Path = False Then
Exit Sub 'Abbrechen wurde geklickt
Else
Do Until Right(Path, 1) = "\"
Path = Left(Path, Len(Path) - 1)
Loop
Path = Left(Path, Len(Path) - 1)
MsgBox Path
End If
End Sub

mfg
Franz
Anzeige
AW: Ordner name übernehmen - Notlösung
ransi
Hallo
Eleganter ist das hier:


Option Explicit
Public Sub test()
Dim datei
Dim pfad
datei = Application.GetOpenFilename
If datei <> False Then
    pfad = Replace(datei, Dir(datei), "")
    MsgBox pfad
End If
End Sub


macht aber im prinzip das gleiche.
ransi
Anzeige
AW: Ordner name übernehmen - Notlösung
12.06.2006 08:46:50
Swen
Hallo an alle,
vielen Dank!
Gruß
Swen
AW: Ordner name übernehmen - Notlösung
12.06.2006 08:47:37
Swen
thread war noch offen sorry
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige