Das ist die Datei SCMS-Kit.vbs mit VBScripten-Subroutinen, die im SCMS-Kit eingebunden sind

Public Sub ChooseCMSProject()
dim DefaultProjectPropertiesFile, CurrentProjectPropertiesFile, Message, Title
DefaultProjectPropertiesFile = "DefaultProject.txt"
CurrentProjectPropertiesFile = "DefaultProject.txt"
Message = "Bitte wählen Sie ein CMS-Projekt aus: "
Title = "CMS-Project definieren"
' CurrentProjectPropertiesFile = InputBox (Message,Title, DefaultProjectPropertiesFile,,1100)
ScmsProjectLoad(CurrentProjectPropertiesFile)
end Sub

Public Sub ReadStandAloneFile(PathXMLorXSLDirPrm, FileExtensionPrm)
dim FileObject, fso_vb, FileName, FileNameShort
Set fso_vb = CreateObject("Scripting.FileSystemObject")
' File load: Dateien werden eingelesen. Wenn die Datei die Erweiterung FileExtensionPrm hat, dann wird die Schleife beendet
If fso_vb.FolderExists(PathXMLorXSLDirPrm) = True Then
For Each FileObject In fso_vb.GetFolder(PathXMLorXSLDirPrm).Files
FileName = FileObject.Name
FileNameShort = FileNameFind( FileName)
if InputFilesExtension = FileExtensionPrm then
call Path4XMLorXSL(PathXMLorXSLDirPrm, FileName, InputFilesExtension)
Exit for
else
End If
Next
Else
msgBox "Ordner " & PathXMLorXSLDirPrm & " ist nicht vorhanden", 48,"scms-kit > ReadStandAloneFile: "
End If
End Sub

Public Sub ReadnFiles(PathXMLorXSLDirPrm, FileExtensionPrm, PathExportDirPrm)
dim PathExportFile, FileObject, fso_vb, FileList, FileName, FileNameShort, TemplateCounter
Set fso_vb = CreateObject("Scripting.FileSystemObject")
' Files load: Dateien werden eingelesen.
FileList = ""
If fso_vb.FolderExists(PathXMLorXSLDirPrm) = True Then
For Each FileObject In fso_vb.GetFolder(PathXMLorXSLDirPrm).Files
FileName = FileObject.Name
FileNameShort = FileNameFind( FileName)
if InputFilesExtension = FileExtensionPrm then
call Path4XMLorXSL(PathXMLorXSLDirPrm, FileName, InputFilesExtension)
PathExportFile = PathExportDirPrm & FileNameShort & "." & targetFilesExtension
call CreateTargetFormat(PathXMLFile, PathXSLFile, PathExportFile)
else
End If
Next
Else
msgBox "Ordner " & PathXMLorXSLDirPrm & " ist nicht vorhanden", 48,"scms-kit > ReadnFiles-Info: "
End If
End Sub

Public Sub FileSave(Pfad,Daten)
dim fso_vb, fso_open_vb
Set fso_vb = CreateObject("Scripting.FileSystemObject")
set fso_open_vb = fso_vb.OpenTextFile(Pfad,2,True)
fso_open_vb.write Daten
fso_open_vb.Close
msgBox "Datei " & Pfad & " geschrieben", 64," Scms-kit-Info: Datei geschrieben"
' call FensterOeffnen(Pfad_HTMLDatei_VB)
End Sub