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

Neues Verzeichnis anlegen mit VBA

Forumthread: Neues Verzeichnis anlegen mit VBA

Neues Verzeichnis anlegen mit VBA
29.10.2006 06:44:39
WHN
Hallo, ich möchte folgendes mit VBA erledigen:
1. Verzeichnis ("C:\Daten") auf existens überprüfen
2. Verzeichnis "C:\Daten" wenn nicht vorhanden anlegen
3. Prüfen ob Datei ("XYZ.xls") im Verzeichnis vorhanden
4. Datei "XYZ.xls" ins verzeichnis kopieren
Würde mich freuen wenn mir da Jemand helfen könnte.
Vielen Dank schon mal und freundliche Grüße
Werner
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Neues Verzeichnis anlegen mit VBA
29.10.2006 07:00:50
chris
Hallo Werner,
das sollte dein problem lösen.
Option Explicit

Sub makro()
Dim sDatei, sQuelle, sZiel As String
If Dir("C:\Daten", vbDirectory) = "" Then
'Ordner nicht vorhanden neu anlegen
MkDir ("c:\Daten")
'Datei kopieren
sQuelle = "c:\"
sZiel = "c:\Daten\"
sDatei = "XYZ.xls"
FileCopy sQuelle & sDatei, sZiel & sDatei
End If
End Sub

gruß Chris
Anzeige
AW: Danke
29.10.2006 10:04:53
WHN
Hallo Chris, Danke für die schnelle Hilfe
Gruß Werner
;

Beliebteste Forumthreads (12 Monate)

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