Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn Ordner existiert, Fehlermeldung, sonst anlege

Forumthread: Wenn Ordner existiert, Fehlermeldung, sonst anlege

Wenn Ordner existiert, Fehlermeldung, sonst anlege
29.06.2003 21:35:37
Heiner

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Ordner existiert, Fehlermeldung, sonst anlege
29.06.2003 21:57:51
Nepumuk
Hallo Heiner,

der Code kommt mir doch sehr bekannt vor.


So gehts:

'Übergeordneter Ordner wird erstellt:
Dim FsyObjekt As Object, Ordner As String, Ordner2 As String
Ordner = Laufw & ":\" & UeberOrdner
Set FsyObjekt = CreateObject("Scripting.FileSystemObject")
If Not FsyObjekt.FolderExists(Ordner) Then
FsyObjekt.CreateFolder (Ordner)
Else
If MsgBox("Der Ordner " & Ordner & " existiert bereits." & vbLf & "Weitermanchen?", 36, "Abfrage") = 7 Then Exit Sub
End If
'Untergeordneter Ordner wird erstellt:
Ordner2 = Laufw & ":\" & UeberOrdner & "\" & UntOrdner
If Not FsyObjekt.FolderExists(Ordner2) Then
FsyObjekt.CreateFolder (Ordner2)
Else
If MsgBox("Der Unterordner " & Ordner2 & " existiert bereits." & vbLf & "Weitermanchen?", 36, "Abfrage") = 7 Then Exit Sub
End If
MsgBox " Das Verzeichnis " & Ordner2 & " wurde angelegt! " & Chr(13) _
& " " & Chr(13) _
& " Kopien werden im angezeigten Verzeichnis abgelegt! " & Chr(13) _
& "", vbInformation, " Test.1.0"


Du musst übrigens das FileSystemObject nicht zweimal definieren. Ich habe das überflüssige mal entfernt.
Gruß
Nepumuk


Anzeige
AW: Wenn Ordner existiert, Fehlermeldung, sonst anlege
29.06.2003 22:14:25
Heiner
Hallo Nepumuk,

ein grosses DANKE, Dein Code funktioniert bestens.

Der Code wurde übrigens irgendwann von mir im Excelforum gefunden und nur etwas modifiziert.
Vielleicht kommt er Dir daher sehr bekannt vor?!

Danke und Gruß,
Heiner


;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige