Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
272to276
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
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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


305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige