Kleine Sektflaschen Hochzeit
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?? Vba verzeichnis erstellen 7. Gruß 01. 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.
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! Ordner erstellen falls nicht vorhanden. 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)? 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. Ordner und Unterordner anlegen, Hyperlinks einfügen, Ordner in Outlook anlegen | Excel VBA - YouTube. 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.
Allerdings ist es möglich ein Sharepoint-Verzeichnis im Explorer zu mappen. Ich mach das z. B. ïndem ich ein OneDrive Verzeichnis mit Verweis auf das Sharepoint Verzeichnis mappe. Mehr Infos auch hier. Anschliessend kann die UNC-Notation des Verzeichnis mit einem zusätzlich zu erstellenden Unterverzeichnis verkettet werden und mit MkDir angewendet werden. Gruess Hansueli Geschrieben am: 21. 2020 09:14:52 Hallo Hansueli Soweit ich das mit meinem Wissen beurteilen kann, ist das Sharepoint-Verzeichnis im Explorer gemappt. Ich erreiche es jedenfalls über den Explorer, ohne Sharepoint zu verwenden. Das Problem ist, dass der Pfad so aussieht: C:\Users\chname\Firma\Logistik - Dokumente/01_Test/Ordner_Anlegen Sprich, er ist "personalisiert", da immer der Name des Users im Pfad vorkommt. Vba verzeichnis erstellen in english. Diesen Teil deiner Erklärung habe ich nicht verstanden: "Anschliessend kann die UNC-Notation des Verzeichnis mit einem zusätzlich zu erstellenden Unterverzeichnis verkettet werden und mit MkDir angewendet werden. "