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

Ordnername einlesen

Forumthread: Ordnername einlesen

Ordnername einlesen
30.03.2017 15:25:35
Peter
Grüezzi Zusammmen
Ich möchte mit einem Makro einen Dialog öffnen, mit dem ich einen Ordnernamen (Pfad) einlesen kann.
Bei diesem Dialog möchte ich das Start-Directory angeben können. zB "Computer"
Auch NetzwerkOrdner "\\Domain..."
Leider finde ich im Dschungel des Internet nichts.
Kann mir da einer Unterstützung geben.
lieben Dank
Pepi
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordnername einlesen
30.03.2017 15:47:42
Peter
hier noch ein kleines Makro, das eigentlich gut funktioniert - nur werden die Netzlaufwerke nicht angezeigt. 
Sub X_GetOrdner()
Dim sTmp$
sTmp = fu_GetOrdner("C:\_CRM_TMP")
stop
End Sub


Function fu_GetOrdner(Optional ByVal def = "")  'Ordner auswählen
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
fu_GetOrdner = ObjFolder.Self.Path
End Function
mfg
Pepi
Anzeige
sTmp = fu_GetOrdner(17) owT
30.03.2017 17:06:25
Anton
Test owT
31.03.2017 15:31:37
Anton
AW: sTmp = fu_GetOrdner(17) owT
03.04.2017 18:40:52
Anton
Anzeige
AW: sTmp = fu_GetOrdner(17) owT
04.04.2017 08:51:02
Anton
Hallo Pepi,
hast du meinen Vorschlag ausprobiert?
mfg Anton
Recherche-Zauberwort: UNCPath (owT)
30.03.2017 16:03:49
EtoPHG

AW: Ordnername einlesen
30.03.2017 16:09:39
UweD
Hallo
so ?
Sub Datei_Verzeichnis_wählen()
    Dim Dlg As FileDialog
    Dim StartPfad As String, Verz As String
    
    '**** 
    StartPfad = "C:\Temp\"
    'oder 
    StartPfad = "\\Server\"
    '**** 
        
    StartPfad = StartPfad & IIf(Right(StartPfad, 1) = "\", "", "\") 'nur zur Sicherheit, ob \ vorhanden ist 
    Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
    With Dlg
        .InitialFileName = StartPfad 'Welches Verzeichnis soll voreingestellt sein 
        If .Show = True Then
            Verz = .SelectedItems(1)
            '*** 
            MsgBox "gewählt wurde " & Verz
        Else
            MsgBox "Die Aktion wurde abgebrochen", vbCritical, "Abbruch...!"
            Exit Sub
        End If
    
    End With
End Sub

LG UweD
Anzeige
AW: Ordnername einlesen
03.04.2017 20:15:42
Peter
Hallo zusammen, offenbar habe ich vergessen das Häcklein zu setzten, dass die Frage noch offen ist. - smile!
Die Lösung von UweD ist wunderbar.
Ich möchte mit "Computer" starten, denn dort habe ich alle Verzeichnis, C:, \\dom... (alle lokalen und alle Netzwerklaufwerke)
Doch "Computer" ist ja kein Laufwerk. Gibt es aber die Möglichkeit, ganz "unten" zu starten, so dass ich jeden Pfad direkt anwählen kann. Hoffentlich habe ich mich verständlich genug ausgedrückt.
mfg
Pepi
Anzeige
AW: Ordnername einlesen
04.04.2017 15:11:31
Peter
Hallo zusammen
Tut mir leid Anton, dass ich Deinen Beitrag sTmp = fu_getOrdner(17) nicht bemerkt habe, er war ja sooooo kurz - doch eine tolle Lösung - genau, was ich wollte.
Da diese Funktion aber die Netzlaufwerke nicht erkennt habe ich noch eine Zusatzfrage:
Ich habe das Makro von UweD in eine Funktion (siehe nachfolgend) umgeschrieben - gibt es hier auch eine Möglichkeit unter .InitialFileName = "Computer" (geht nicht - auch 17 nicht) auf der Computer-Ebene zu starten. 
Sub X_GetFolder()
Dim sTmp$
MsgBox fu_GetFolder("C:")
MsgBox fu_GetFolder(17) 'geht nicht!
End Sub

Function fu_GetFolder(Optional ByVal sPfa = "")
Dim Dlg As FileDialog
sPfa = sPfa & IIf(Right(sPfa, 1) = "\", "", "\") 'nur zur Sicherheit, ob "\" vorhanden ist
Set Dlg = Application.FileDialog(msoFileDialogFolderPicker)
With Dlg
.InitialFileName = sPfa
If .Show = True Then fu_GetFolder = .SelectedItems(1) & "\"
End With
End Function

LG Pepi
Anzeige
AW: Ordnername einlesen
30.03.2017 16:30:17
Peter
Supper, funktioniert gut - noch eine kleine Zusatzfrage.
Wie lautet der Code, wenn ich mit "Computer" starten will?
Dann wäre ich auf der untersten Ebene, wo der Benutzer direkt ein Netzlaufwerk oder ein Lokales anwählen kann.
vielleicht gibt es da ja noch eine Lösung
LG Pepi
;

Forumthreads zu verwandten Themen

Dateinamen auslesen (aus Ordnernamen in Spalte)
Tobias

Dieses Script sollte eine Dateiliste erstellen, wenn der Ordner- bzw. Verzeichnisname in der Spalte A steht.
Quelle: https://www.herber.de/mailing/072499h.htm
Ich bekomme aber Laufzeitfehler 445. Objekt unterstützt diese Aktion nicht.
Woran kann das liegen? Benutze Excel 2007
08.02.2009 21:31:46
Thread-ID: 1048494
6 Beiträge
Ordnername
Benedikt

Guten Abend zusammen
Nachfolgende Formeln geben den Wert hhhhhhh aus nachfolgendem Dateipfad in ein Tabellenblatt.
Sobald aber der Name länger oder kürzer ist haut dass nicht.
Kann man die Länge des Namen irgendwie variabel gestalten?
=ZELLE("Dateiname")
= TEIL(E13;23;FINDEN...
04.05.2009 19:26:54
Thread-ID: 1072882
3 Beiträge
Anzeige
Ordnernamen auslesen mit VBA
Franz

Hallo Fachleute,
ich hab gestern mit Eurer Hilfe einen Code zum Auflisten von Dateien im aktuellen Ordner verfeinert:
Sub auflisten() Dim iCounter As Integer Dim sPath As String sPath = ThisWorkbook.Path Columns("B:B").ClearContents With Application.FileSearch .NewSearch '.FileType = ms...
28.10.2009 09:40:03
Thread-ID: 1112692
8 Beiträge
Ordnernamen auslesen - hänge fest
Andreas

Hallo Excel Freunde,
heute morgen dachte ich mir: „Hmm, bei den großen Datenmengen die sich so ansammeln, wäre es mal nett, einen kleinen Katalog eines Verzeichnisses auf der Festplatte anzulegen…“ Ordnername und dessen Größe würde mir reichen. So weit die Theorie. Das mir das so die Laune...
09.11.2009 10:55:46
Thread-ID: 1115468
6 Beiträge
Ordnernamen auflisten
steffen

Hallo in die Runde,
ich habe in der Recherche folgenden Code gefunden:
Sub ShowFolderName() Dim FSyObjekt As Object, FoObjekt As Object Set FSyObjekt = CreateObject("Scripting.FileSystemObject") Set FoObjekt = FSyObjekt.GetFolder("D:\Eigene Dateien\Test") MsgBox FoObjekt.Name End Sub I...
18.06.2010 14:24:58
Thread-ID: 1162778
3 Beiträge
Ordnernamen eines bestimmten Pfades (ohne Subfolde
Peter

Guten Tag
Mit untenstehendem Code liste ich mir alle Dateinamen auf, welche am gleichen Ordner abgelegt sind, wie die Datei, in welchem der Code steckt.
Nun möchte ich anstelle der Dateinamen alle Ordner (ohne Unterordner) die im entsprechenden Ordner abgelegt sind, ausgeben.
Was mu...
23.09.2010 08:11:06
Thread-ID: 1179015
3 Beiträge
Anzeige
Ordnernamen (teileweise) in Bildnamen übernehmen
Lemmi

Hallo zusammen,
ich habe eine Ordnerstruktur mit Unterverzeichnissen in den thematisch Bilder abgelegt sind. Diese sollen eine Identifikations- Nr. erhalten.
Die Identifikationsnummer ist sechstellig.
Beispiel:
Ordner: Projekt ABC
U-Ordner1: 01_Haus
01_001 Bild1 Datum...
15.11.2012 15:24:25
Thread-ID: 1286840
13 Beiträge
Ordnernamen auflisten
Franz

Hallo zusammen,
ich bin auf der Suche nach einem Makro, was zu einem Ordner - den ich in Excel vorgebe - die Unterordner in Excel aufliste.
Beispiel: Ordner: P:\Privat
Hier bestehen nun zwei Unterordner:
P:\Privat\Dokumente\Excel
P:\Privat\Tabellen
Aufgelistet werden müs...
18.11.2012 18:39:42
Thread-ID: 1287198
6 Beiträge
Hyperlinks zu abweichenden Ordnernamen
Tim

Auf der Suche nach einer Lösung für mein Problem, bin ich auf dieses Forum gestoßen.
Ich habe gefühlt schon das gesamte Netz durchsucht. Allerdings weiß ich auch nicht wirklich wie ich danach suchen soll.
Und zwar habe ich eine Excel-Liste in der wir unsere Aufträge mit allen Abteilunge...
06.10.2014 11:24:44
Thread-ID: 1385030
7 Beiträge
Ordnernamen einlesen, in Tabelle kopieren
dieter
Hey all,
Ich habe ein kleines Problem damit das ich zwar Ordnernamen einlesen und diese dann auch in eine Tabelle kopieren kann, aber ich bin gezwungen nur den in dem Vba gesetzten Laufwerksbuchstaben zu nehmen. Ich möchte aber gerne mit der Auswahl variabel sein.
Kann könnte mir da einer b...
18.10.2014 18:52:35
Thread-ID: 1387340
6 Beiträge
Ordnernamen einlesen
Ludmila

Guten Morgen,
wer kann mir helfen die Ordnernamen eines Verzeichnisses in ein UF ComboBox einzulesen.(Nur die Namen)
Mein Code funktioniert nicht.
Danke!
Gruß, Ludmila
Private Sub cmdOrdnerEinlesen_Click() Dim objFSO As Object Dim objFolder As Object Dim sPfad As String Dim...
06.08.2015 08:05:27
Thread-ID: 1440627
5 Beiträge
Ordnername aus Name entfernen
Thomas

Hallo Excelfreunde,
ich habe ein super Makro gefunden.
Mit dem kann man das aktuelle Tabellenblatt als Mail versenden.
Es hat nur noch ein schönheitsfehler der ordnername steht mit im Dateiname.
Kann jemand das Makro so ändern das nur der Blattname benutzt wird?
pdfName2 = A...
04.10.2015 14:36:59
Thread-ID: 1450699
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige