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. 2008, 11:35
# 2
MOF Guru
Registrierung: 28. VBA Ordner erstellen. 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.
- Vba verzeichnis erstellen pdf
Vba Verzeichnis Erstellen Pdf
VBA Ordner erstellen von gaertner1706 vom 22. 10. 2012 13:41:51
AW: VBA Ordner erstellen - von Frank H. am 22. 2012 14:46:21
AW: VBA Ordner erstellen - von gaertner1706 am 22. 2012 15:04:44
AW: VBA Ordner erstellen - von Rudi Maintaire am 22. 2012 16:35:14
AW: VBA Ordner erstellen - von gaertner1706 am 22. 2012 20:04:12
AW: VBA Ordner erstellen - von haw am 22. 2012 16:53:38
AW: VBA Ordner erstellen - von gaertner1706 am 22. 2012 20:06:27
Betrifft: VBA Ordner erstellen
von: gaertner1706
Geschrieben am: 22. 2012 13:41:51
Hallo,
bin bis eben noch eine "Forenjungfrau" hier also meine erste Frage:
Angenommen A1=1 und A2=Ordner
Ich möchte dass z. B. Bei einem Rechtsklick in Zeile A folgender Ordner erstellt wird:
C:\vbaOrdnerErstellen\Ordner\1
einzeln bekomme ich das hin (s. Ordnerstruktur anlegen - VBATrainer 2022. u. ) zusammen funktioniert es nicht. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Ord As String
'Ord = "C:\vbaOrdnerErstellen\" & Cells(, 2)
'Ord = "C:\vbaOrdnerErstellen\" & + 120995
MkDir Ord
If Dir(Ord, vbDirectory) <> "" Then
MsgBox "Ordner """ & Ord & """ wurde angelegt"
Else
MsgBox "Ordner nicht vorhanden"
End If
End Sub
Betrifft: AW: VBA Ordner erstellen
von: Frank H.
Geschrieben am: 22.
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.!!! 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!!! Vba verzeichnis erstellen test. 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.