Script: Ordnerstruktur für Projekt erzeugen

Inhalt

Erstellt für ein Projekt eine Ordnerstruktur auf dem Filesystem. Wird verwendet, wenn für jedes neu erzeugte Projekt die gleiche Ordnerstruktur erstellt werden soll.

Verwendet den Dokumentenpfad auf dem Projekt.

Das Script kann nur den Projekt- sowie die Unterordner erzeugen. Der Rest der Ordnerstruktur (z.B. C:\Programme\Vertec\Dokumente\Projekte) muss bereits bestehen.

Version

Alle Versionen

Ausführen

Auf dem Projekt, für das die Ordnerstruktur erzeugt werden soll. Die Bezeichnung der Unterordner müssen im Script entsprechend angepasst oder erweitert werden.

Script

addfolderstofilesystem.txt

Scripttext

'---Bezeichnung: AddFoldersToFileSystem
'   Klassen: Projekt
'   ObjectScript: Yes
'   ContainerScript: No
'   EventType: Kein
'   EventClass:
'   EventMembers:
'   ExtendedRights: No
'---Erstellt für ein Projekt eine Ordnerstruktur auf
'   dem Filesystem. Wird verwendet, wenn für jedes neu
'   erzeugte Projekt die gleiche Ordnerstruktur erstellt werden soll.
'---Ausführen auf dem Projekt, für das die Ordnerstruktur erzeugt werden
'   soll. Die Bezeichnung der Unterordner müssen im Script entsprechend
'   angepasst oder erweitert werden. Die Dokumentablage bis zur Ebene
'   über dem Projekt (z.B. C:\Programme\Vertec\Dokumente\Projekte) muss bereits
'   vorhanden sein. Das Script kann nur dem Projektordner und die Unterordner
'   erzeugen.
'---05.2007 Vertec AG: erstellt.
'---05.10.2009, sr: Verwendet nun den Dokumentenpfad auf dem Projekt.
option explicit

dim FileSystem
dim Folder
dim Dokumentenpfad

'---Nehme den Dokpfad des Projekts.
Dokumentenpfad = Vertec.argobject.member("dokpfad")

if Dokumentenpfad = "" then
  msgbox "Es ist kein Dokumentenpfad angegeben. Der Vorgang wird abgebrochen."
else
  '---Erstelle neue Pfade.
  set FileSystem = CreateObject("Scripting.FileSystemObject")
  '---Wenn Folder bereits vorhanden, gibt es Fehler, darum "on error"
  On Error Resume Next
  set Folder = FileSystem.CreateFolder(Dokumentenpfad)
  set Folder = FileSystem.CreateFolder (Dokumentenpfad & "\Buchhaltung")
  set Folder = FileSystem.CreateFolder(Dokumentenpfad & "\Diverses")
  set Folder = FileSystem.CreateFolder(Dokumentenpfad & "\Korrespondenz")
end if