Verzeichnis per VBA umbenennen
17.12.2004 08:01:13
Mike
hab einen Ordner(Projekt xy = Template) mit ca. 600 Unterordnern.
in einer Excel Datei steht in einer bestimmten Zelle der Projektname!
Mit einem Makro möchte ich,dass der Vorlagenordner kopiert wird und wie in der oben erwähnten Zelle (Projektname) benannt wird!
Hier im Forum hab ich schon ein Makro gefunden welches mir den Ordner kopiert!
Public
Sub NeuesProjektanlegen()
Dim FSYObjekt As Object
Set FSYObjekt = CreateObject("Scripting.FileSystemObject")
FSYObjekt.CopyFolder "\\Daten\Projekt Template", "\\Test"
End Sub
Mike!
Anzeige