Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner erstellen

Ordner erstellen
19.05.2006 16:48:02
Basti
Hallo zusammen,
ich brauch mal wieder einen Rat. Wie kann ich mit dem Öffnen des Workbooks (also mittels Private sub Workbook_open) einen Ordner (zB mit dem Namen Ort1) in einem beliebigen Pfad erstellen (zB. C:\Programme\Basti).
für Hilfe bin ich wie immer sehr dankbar
Gruß Basti

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner erstellen
19.05.2006 17:03:46
Basti
MMM, nun ja,
eigentlich möchte ich den Ordner (zB.: C:\Programme\Basti\Ort) erstellen wenn das Programm gestartet wird ohne den Nutzer des Programmes damit zu behelligen (also im Hintergrund)
Gruß Basti
AW: Ordner erstellen
HansHei
Hallo Basti,
dann versuchs mal hiermit.

Private Sub Workbook_Open()
MkDir "C:\Programme\Basti\Ort"
End Sub

Gruß
Hans
AW: Ordner erstellen
19.05.2006 17:16:28
Basti
Cool, wenn das klappt ist es genau das was ich wollte
vielen Dank Basti
Anzeige
AW: Ordner erstellen
19.05.2006 17:08:38
Dan
Hallo, z.B. so wird die Directory Ort1 in der current-Directory erstellt. Gruss Dan
Option Explicit

Private Sub Workbook_Open()
Dim sCurrentDirectory As String
Dim sNewDirectory As String
On Error GoTo Err_Workbook_Open
sCurrentDirectory = VBA.FileSystem.CurDir
sNewDirectory = "Ort1"
VBA.FileSystem.MkDir sCurrentDirectory & "\" & sNewDirectory
Exit Sub
Err_Workbook_Open:
MsgBox Err.Description, vbCritical, "Error " & Err.Number
End Sub

AW: Ordner erstellen
19.05.2006 17:13:00
Basti
Und Current Directory bedeutet das der Ordner in dem aktuellen Pfad abgelegt wird oder wie kann ich das verstehen?
Gruß Basti
Anzeige
AW: Ordner erstellen
19.05.2006 17:18:23
Dan
Ja :-)
AW: Ordner erstellen
19.05.2006 17:21:32
Basti
Ok, danke für deine Hilfe, werd ich mal probieren
Gruß Basti

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige