Script: Ordnerstruktur für Projekt erzeugen

Inhalt

Erstellt für ein Projekt eine Ordnerstruktur auf dem Dateisystem. 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

VersionBeschreibungScript
ab Versionen 5.0
Verwendet die Variablen Vertec und argobject. addfolderstofilesystem.txt
ab Version 5.8
Verwendet anstelle der VB Standardfunktion die Vertec-Funktion msgbox (siehe dazu msgbox/inputbox: Beschreibung der Parameter) addfolderstofilesystem58.txt

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.

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.
'---29.10.2013, sr: msgbox durch vertec.msgbox ersetzt.

option explicit

dim FileSystem
dim Folder
dim Dokumentenpfad

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

if Dokumentenpfad = "" then
Vertec.msgbox "Es ist kein Dokumentenpfad angegeben. Der Vorgang wird abgebrochen.",,"Vertec"
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

27.04.2007 | 29.10.2013: msgox auf vertec.msgbox geändert. Altes und neues Script zur Verfügung gestellt.
Produktlinien: Standard, Expert
Module: Leistung & CRM