Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1168to1172
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
Inhaltsverzeichnis

Ordner per Makro erstellen

Ordner per Makro erstellen
Nico
Hallo zusammen!
Ich bin auf der Suche nach einem Makro, mit dem ich per Knopfdruck im Verzeichnis C:\Daten einen Unterordner erstellen kann. Der Name des Ordners steht in Zelle C5. Ach ja: idealerweise soll das Makro prüfen, ob in diesem Verzeichnis schon ein Ordner mit diesem Namen besteht - wenn ja soll natürlich kein neuer erstellt werden.
Danke schön für eure Hilfe.
Grüße,
Nico

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

Betreff
Benutzer
Anzeige
AW: Ordner per Makro erstellen
30.07.2010 09:44:39
Tino
Hallo,
kannst ja mal testen.
Private Declare Function apiCreateFullPath _
Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long

Sub Beispiel()
Dim strOrdner As String
Dim lngPahth As Long

strOrdner = Range("C5")
strOrdner = IIf(Right$(strOrdner, 1) = "\", strOrdner, strOrdner & "\")
strOrdner = IIf(Left$(strOrdner, 1) = "\", "", "\") & strOrdner
strOrdner = "C:\Daten" & strOrdner

lngPahth = apiCreateFullPath(strOrdner)

If lngPahth = 1 Then
    MsgBox "Ordner wurde angelegt oder ist schon vorhanden", vbInformation
Else
    MsgBox "Ordner konnte nicht angelegt oder gefunden werden!", vbCritical
End If

End Sub
Gruß Tino
Anzeige
Ohne API-Funktion
30.07.2010 09:58:56
JogyB
Hallo Nico,
hier ein Code ohne Verwendung von API-Funktionen:
Sub ordNerErstellen()
Const paTh = "c:\temp\test\" ' Anpassen!
On Error GoTo errorHandler
With ActiveSheet.Cells(5, 3)
If Dir(paTh & .Text, vbDirectory) = "" Then
MkDir paTh & .Value
Else
MsgBox ("Verzeichnis exisitiert bereits")
End If
End With
Exit Sub
errorHandler:
MsgBox ("Fehler beim Anlegen des Verzeichnisses.")
End Sub

Gruß, Jogy

30 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige