01. 06. 2008, 11:00 # 1 DeBabba VBA - Verzeichnis erstellen Hallo zusammen, ich erstelle via Makro ein Verzeichnis mit verzeichnis = TxtBoxI1 If Dir(verzeichnis, vbDirectory) = "" Then MkDir (verzeichnis) Das klappt ja soweit ganz gut wenn ich z. B c:\Gagga\ erstellen möchte NUR Wenn Gagga nicht existiert und ich C:\Gagga\Hallo\ erstellen möchte kommt die Fehlermeldung 76 (Pfad nicht gefunden). Hat jemand ne Idee wie ich die Verzeichnisse rekursiv, also Gagga und Hallo erstellen kann?? Gruß 01. Vba verzeichnis erstellen folder. 2008, 11:35 # 2 MOF Guru Registrierung: 28. 02. 2001 Moin, deBabba, entweder API-Funktionen einsetzen oder aber Verzeichnisbaum anlegen verwenden: Code: Option Explicit Private Declare Function MakeSureDirectoryPathExists _ Lib "" _ (ByVal lpPath As String) As Long Sub make_sure() MakeSureDirectoryPathExists "C:\test\test1\test2\" End Sub Zusatz: Anlegen über FSO Sub CheckOrdner() ' y/ypsilon, Herber-Archiv, 31. 03. 2004 'prüfen ob der Ordner im Homeverzeichniss '\Eigene Dateien\ Finanzen eines Users vorhanden ist, 'wenn nicht erstellen Dim Ord As String Dim UN As String Dim OrdnerNeu As String Dim fso Set fso = CreateObject("leSystemObject") UN = Environ("USERNAME") Ord = "c:\Dokumente und Einstellungen\" & UN & "\Eigene Dateien" & "\Finanzen" '& "\" If lderexists(Ord) = True Then Exit Sub Else MkDir Ord MsgBox "Ordner " & Ord & " angelegt" End If __________________ cu jinx per 31.
Woher bekommst Du die Namen dieser Unterordner? Ich bekomme den Code nicht auf mein Formular umgesetzt. In meinem Formular "Objekte" habe ich das Feld "GeräteNummer", das als Primärschlüssel arbeitet. Wenn ich in dem geöffnetem Formular bin möchte ich durch Klick auf Schaltfläche "Bilder" das sich ein Ordner, den ich in C:\Users\Pictures\ öffnet und einen neuen Ordner mit der Bezeichnung der aus dem geöffnetem Formular resultierender "GeräteNummer" erstellt bzw. wenn vorhanden ist öffnet. Habe aber Probleme mit der Umsetzung, siehe Bild. Das mit dem Zitat mit 5 Unterordnern ist nicht von mir. Könnt Ihr mir helfen? Ordnerstruktur anlegen - VBATrainer 2022. Hallo Olaf, ich wiederhole Franz' Frage Zitat wo genau liegt denn das Problem? Private Declare Function apiCreateFullPath Lib "" Alias MakeSureDirectoryPathExists" _ (ByVal lpPath As String) As Long Public Function fktCreateMultiPfad() as Long Dim Ord As String Ord = "c:\xyz\network\Folder\SubFolder\etc\" & [Folder] fktCreateMultiPfad = apiCreateFullPath(Ord) End Function Wenn du es unbedingt mit MkDir machen willst, setze den kompletten Pfad in einem String zusammen, und befülle mit Split(Ord, "\") ein Array, aus dem du anschliessend in einer Schleife die Ordner erstellst.
Wahrscheinlich wegen dem Verbinden als Laufwerk B. VBA Ordner erstellen. Ich habe eine Alternativlösung gefunden, wie die Ordner erstellt werden können. Muss zwar in einem Separaten Tabellenblatt gemacht werden, dafür kann man gleich viele aufs mal anlegen: Sub OrdnerErstellen() Dim sFolder As String, sNeu As String, rngC As Range, n As Integer With leDialog(msoFileDialogFolderPicker) If = -1 Then sFolder =. SelectedItems(1) End With If sFolder <> "" Then With Sheets(5) For Each rngC In ((2, 1), (, 1)(xlUp)) If rngC <> "" Then sNeu = sFolder & "\" & rngC If Dir(sNeu, vbDirectory) = "" Then MkDir sNeu n = n + 1 Next Range("A2:A" & Cells(, "A")(xlUp)). ClearContents MsgBox "Ordner anlegen war erfolgreich" If n Then MsgBox n & " Ordner nicht angelegt.
2012 14:46:21 Hallo Unbekannter! Auf deine Frage weiss ich keinen Rat. Aber auf die Regeln im Forum kann ich dich aufmerksam machen. Hier wird geduzt, so dass man gern nen Gruss mit seinem Namen am Ende aus Höflichkeit sendet, damit man dich auch anreden kann! L. G. Frank H.!!! Vba verzeichnis erstellen radio. Geschrieben am: 22. 2012 15:04:44 Hallo Frank H.! danke für den Hinweis, wie gesagt "Forenjungfrau" Gruß Kolja von: Rudi Maintaire Geschrieben am: 22. 2012 16:35:14 da ist 2x MkDir erforderlich. Sicherheitshalber sogar 3x. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Ord = "C:\vbaOrdnerErstellen" If Dir(Ord, vbDirectory) = "" Then MkDir Ord Ord = Ord & "\" & [A2] Ord = Ord & "\" & [A1] Gruß Rudi Geschrieben am: 22. 2012 20:04:12 Hallo Rudi, danke für die schnelle Antwort. Habe den Code auf mein Fallbeispiel angepasst und es funktioniert!!! Super und schönen Dank. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Ord = "C:\vbaOrdnerErstellen\" & Cells(, 2) Ord = Ord & "\" & + 120995 von: haw Geschrieben am: 22.
Gruss Geschrieben am: 20. 2020 13:14:51 Sorry, ohne ":" auch versucht? Also tatsächlich Pfad = "\\herzog(... ) Wenn das nicht hilft, vielleicht kommst du mit folgendem Link weiter: Geschrieben am: 20. 2020 13:49:16 Ja auch ohne ":" geht es nicht, selbe Fehlermeldung. Den von dir verlinkten Forumbeitrag habe ich beim Googeln auch gefunden, aber das war mir zu kompliziert. Sprich, ich konnte das geschriebene mit meinem Wissenstand nicht anwenden. von: volti Geschrieben am: 20. 2020 15:40:44 nur eine Idee aus grauer Vorzeit: Pfad="\\\@SSL\DavWWWRoot\sites\Logistik\Freigegebene Dokumente\01_Test\Ordner_Anlegen" PS: Die%20 stehen in Urls für das Leerzeichen (Hex 20 = ASCii 32 = Leerzeichen). Hattest Du das bei Deinen Versuchen berücksichtigt? viele Grüße Karl-Heinz Geschrieben am: 21. 2020 09:15:57 Hoi Karl-Heinz Deine Idee hat leider nichts verändert. Ja ich habe beides versucht. Mit%20 und mit Leerzeichen im Pfad. Vba verzeichnis erstellen. Beides mit dem selben Ergebnis. von: EtoPHG Geschrieben am: 20. 2020 15:46:01 MkDir ist ein DOS -Relikt und das kann nicht direkt aus Sharepoint angewendet werden!
Hättest du da evtl. noch einen anderen Code auf lager? Der Code steht doch sinngemäß da. Du brauchst für jeden Ordner ein eigenes MakeDir, und MakeDir kann nur einen Ordner eine Ebene tiefer erstellen. Über die Win-API MakeSureDirectoryPathExists ist man da etwas schlagkräftiger. Zitat in Abhängigkeit des im Aktuellen Form ID Feld Einen gültigen Verzeichnispfad wirst Du wohl selber erstellen können... Mit freundlichem Glück Auf! Eberhard Hmmmm, verstehe ich nicht. Ich gehe richtig davon aus, dass im Code der "Ord" das Feld ist auf welches er sich bezieht ( aus meinem Textfeld/Form/db)? VBA - Verzeichnis erstellen - MS-Office-Forum. Sorry im Vorfeld für die "blöden" fragen:-), habe auch schon sehr viel versucht das zu lösen, hier und bei Google aber für mich ist das Zuviel was ich nicht begreife. Wenn ich eine Funktionierende Funktion habe macht es spaß diese zu verändern und dann geht es auch leichter das zu verstehen. Dank Euch habe ich schon mit den Makro`s die Freundschaft gekündigt:-) Hallo, wo genau liegt denn das Problem? Zitat Nun möchte ich aber in einem Abwasch (mit diesem Klick) nicht nur den Ordner anlegen, sondern gleich dazu noch weitere fünf Unterordner.
2014, 18:18 # 6 Registrierung: 17. 05. 2008 das wurde vor kurzem hier besprochen. Ordner anlegen Declare Function MakeSureDirectoryPathExists Lib "" (ByVal DirPath As String) As Long Sub Test() Dim LoI As Long Dim StOrdner As String StOrdner = "D:\Test1\test2\" ' Schleife Ergänzung von Hajo für Unterordner ' Renè Mumpel ' keine Unterordner LoI = Len(StOrdner) - Len(bstitute(StOrdner, "\", "")) For LoI = 1 To LoI Rem Auf Pfad prüfen. Erstellen wenn nicht vorhanden MakeSureDirectoryPathExists ("D:\Test1\test2\") Next LoI Signatur in jedem Beitrag Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus. Betriebssystem: Windows 10 - 64 Bit, Office 2021 - 32 Bit. Fragen werden im Forum beantwortet, nicht per PN. 17. 2014, 07:47 # 7 Registrierung: 21. 2010 Hallo Hajo, wenn schon 'MakeSureDirectoryPathExists'. dann so wie hier beschrieben: Bei Differenzierung von Win 32/64 bit dann so die API-Sub so definieren wie hier: Da braucht man keine For-Schleife. Bin auf die Begründung gespannt, was die eigentlich machen soll und warum definierst Du eine Variable für den zu erzeugenden Pfad, wenn diese Variable dann nicht eingesetzt wird.
normal 4, 07/5 (13) Roros überbackener Kohlrabi herzhaft - mit Schinken und Salami 25 Min. simpel 4, 02/5 (43) Gemüseauflauf 40 Min. pfiffig 4/5 (5) Gemüselasagne ohne Lasagneplatten Trennkost, Low Carb 60 Min. normal 3, 92/5 (22) Auflauf Gärtnerin 15 Min. normal 3, 91/5 (9) Frühlingsauflauf 40 Min. normal 3, 86/5 (5) Gemüselasagne à la Mijel ww-tauglich, mit Tomaten- und Käsesoße 60 Min. normal 3, 8/5 (3) Gemüse-Hähnchenauflauf Möhren, Kohlrabi und Erbsen 30 Min. simpel 3, 78/5 (7) Gemüselasagne à la Christiane 25 Min. Kohlrabi auflauf mit frischkäse en. normal 3, 75/5 (2) Gesunder Gemüseauflauf kalorienarm 30 Min. simpel 3, 69/5 (14) Grünkernauflauf mit Gemüse 60 Min. normal 3, 67/5 (7) Mangold-Kohlrabi-Lasagne 90 Min. normal 3, 65/5 (15) Karotten-Kohlrabi-Petersilienwurzel-Gratin vegetarisches Ofengericht mit Suchtpotential 30 Min. normal 3, 63/5 (6) Kohlrabigratin mit grünen Bohnen und Tomaten vegetarisch 20 Min. normal 3, 5/5 (2) Low Carb Kohlrabi-Spinat-Lasagne ohne Nudeln 35 Min.
Unsere Partner haben uns ihre besten Rezepte verraten. Jetzt nachmachen und genießen. Schweinefilet im Baconmantel Süßkartoffel-Orangen-Suppe Rührei-Muffins im Baconmantel Marokkanischer Gemüse-Eintopf Maultaschen mit Rahmspinat und Cherrytomaten Pasta mit Steinpilz-Rotwein-Sauce Vorherige Seite Seite 1 Seite 2 Nächste Seite Startseite Rezepte
normal 3, 67/5 (7) Mangold-Kohlrabi-Lasagne 90 Min. Kohlrabi auflauf mit frischkäse rezepte. normal Schon probiert? Unsere Partner haben uns ihre besten Rezepte verraten. Jetzt nachmachen und genießen. Pfannkuchen mit glasiertem Bacon und Frischkäse Pasta mit Steinpilz-Rotwein-Sauce Lava Cakes mit White Zinfandel Zabaione Bananen-Mango-Smoothie-Bowl Pesto Mini-Knödel mit Grillgemüse Vorherige Seite Seite 1 Seite 2 Nächste Seite Startseite Rezepte