Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ordner u. unterordner anlegen

Ordner u. unterordner anlegen
28.10.2004 13:50:24
tino
Hallo,
möchte über Pfad der in Zelle i1 steht einen Ordner anlegen!
aber das funktioniert in meiner anweisung siehe unten nur bedingt,
diese funktioniert nur ohne unterordner anlegen.
Bsp. C:\ ist vorhanden
C:\versuch\ Ordner versuch lässt sich anlegen.
aber C:\versuch\neu\ geht nicht da Versuch nicht angelegt!

Sub Ordner_anlegen()
Dim PC As Range
Set Ort = Worksheets("IP Adresse").Range("i1")
On Error GoTo fehler:
Dim s As String
MkDir "" & Ort.Value & ""
ChDir "" & Ort.Value & ""
Call ip
Exit Sub
fehler:
MsgBox "Ortner mit dem Namen  " & Ort.Value & "  ist schon vorhanden"
Call ip
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Ordner u. unterordner anlegen
u_

Sub Ordner_anlegen()
Dim strOrdner As String, i As Integer
strOrdner = Range("A1")
For i = 1 To Len(strOrdner)
If Mid(strOrdner, i, 1) = "\" Then
If Dir(Left(strOrdner, i - 1), vbDirectory) = "" Then
MkDir Left(strOrdner, i - 1)
End If
End If
Next
If Dir(strOrdner, vbDirectory) = "" Then
MkDir strOrdner
End If
End Sub

AW: Ordner u. unterordner anlegen
28.10.2004 14:47:34
tino
Danke.
Funktioniert super.
bestehende ordner werden nicht überschrieben! -Gut-
Aber geht es auch mit einer Meldung, sollte Ordner bestehen?
AW: Ordner u. unterordner anlegen
u_

Sub Ordner_anlegen()
Dim strOrdner As String, i As Integer
strOrdner = Range("A1")
If Dir(strOrdner, vbDirectory) = "" Then
For i = 1 To Len(strOrdner)
If Mid(strOrdner, i, 1) = "\" Then
If Dir(Left(strOrdner, i - 1), vbDirectory) = "" Then
MkDir Left(strOrdner, i - 1)
End If
End If
Next
MkDir strOrdner
Else
MsgBox "Ordner giptet schon!"
End If
End Sub

Anzeige
AW: Ordner u. unterordner anlegen
28.10.2004 15:07:33
tino
so einfach mache ich es dir nicht!
sollte aber nur die meldung bringen sollter
der letzte Ordner (letzter Unterordner) schon bestehen.
AW: Ordner u. unterordner anlegen
u_
?
Tut er doch!
AW: Ordner u. unterordner anlegen
28.10.2004 18:48:43
tino
zBsp.
habe c:\xx\yy
möchte anlegen c:\xx\zz
aber bringt meldung da wie es scheind xx bereits
da ist.?
oder ich bin zu doo..., könnte auch sein. Danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige