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

Ordner u. unterordner anlegen

Forumthread: 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

Anzeige

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

Anzeige
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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