bestimmte Datei aus Ordner sichern
16.02.2009 14:25:00
Jakob
ich möchte per VBA 3 Excel-Dateien aus den Ordner "c:\Documents and Settings\" in ein anderen Ordner kopieren. Den Zielordner erstelle ich mit den folgenden Code:
Sub ULH600VMOrdnerErstellen()
Dim myPath As String
Const stdPath = "C:\Documents and Settings\" ' Hier muss Dein Standardpfad stehen (mit \ am _
Ende!)
myPath = stdPath & MonthName(Month(Date) - 1) & " " & Year(Date)
If Dir(myPath, vbDirectory) = "" Then
MkDir myPath
End If
End Sub
Läßt sich der Code erweitern sodaß auch die Dateien in diesen neu angelegten Ordner angelegt werden?
Danke für Eure Hilfe.
Gruß,
Jakob