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

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

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
AW: Danke
29.10.2006 10:04:53
WHN
Hallo Chris, Danke für die schnelle Hilfe
Gruß Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige