Ordner durchsuchen und namen in xml Datei schreiben

Option Explicit
' Script durchjsucht Subfolders eines angegebenen Hauptfolders  
' Es wird festgestellt ob eine Mindestanzahl von Dateien in einem Subfolder ueberschritten wird   
' Wenn ja, dann werden bestimmte Zeilen in eine vordifinierte XML Datei geschrieben.  
' vorher wird geprueft ob Dateien mit einer Bestimmten Endung aelter als xx tage sind und diese Geloescht   

' VARIABLEN DEFINIEREN  
Dim fsoA, tfA, cnt, folderspec, tf, minimumCount, ZielXML, MainFolder, CheckMediaType, MediaTypeAlter

' mehr als x Dateien muessen vorhanden sein um den Folder zu beruecksichtigen  
minimumCount = 1   
'ZielXML Datei festlegen  
ZielXML = "C:\Users\Moderation\AppData\Roaming\radio42\ProppFrexx ONAIR\3.0\scripts\NewsDispatcher.pfs"  
' Hauptverzeichnis das nach unterordnern durchsucht wird  
MainFolder = "G:\Eigene Musik\000_Redaktion"  
' Welche Dateiendung soll beruecksichtigt werden fuer loeschung?  
CheckMediaType = "mp3"  
' Wie lange bleiben MediaType Dateien im Ordner?  
MediaTypeAlter = 2


' Sub durchsucht MainFolder  
Sub ShowFolderList(folderspec, tf)
    Dim fs, f, folder, folderList, s, File
    Set fs = CreateObject("Scripting.FileSystemObject")  
    Set f = fs.GetFolder(folderspec)
    Set folderList = f.SubFolders
    ' Hier beginnt die Suche  
	For Each folder in folderList
	' 1 - Pruefe on Dateien mit vordefinierter Dateiendung aelter ist als x Tage und loesche Diese  
	' Fehlt noch ...... Delete CheckMediaType aelter als x Tage  
    
		   '...........  
		Select Case folder.name
		Case "Bauernregeln":  
		Case "blickwinkel":  
        'inix machen  
		Case "Jahreszeiten und Feste Redaktion":  
        'inix machen  
		Case "news-lib-sounds":  
        'inix machen  
		Case "regional-news-lib":  
        'inix machen  
		Case "wetter":  
        'inix machen    
		Case Else	
		        For Each File In Folder.Files
		            If LCase(fs.GetExtensionName(File.Name)) = LCase(CheckMediaType) Then
		               'Test Datei-Datum kleiner (Jetzt - Anzahl Tage)  
		               'If File.DateLastModified < DateAdd("d", -MediaTypeAlter, Now) Then File.Delete  'Änderungsdatum  
		               'oder  
		                If File.DateCreated < DateAdd("d", -MediaTypeAlter, Now) Then File.Delete       'Erstellungsdatum  
		            End If
		        Next
		End Select
		   '...........  
	
	' 2 - Jetzt wird geprueft welche Ordner in die XML Datei kommen  
		If folder.Files.Count > minimumCount Then
		'Bestimmte Folders nicht beachten  
		Select Case folder.name
		Case "Bauernregeln":  
		Case "blickwinkel":  
        'inix machen  
		Case "Jahreszeiten und Feste Redaktion":  
        'inix machen  
		Case "news-lib-sounds":  
        'inix machen  
		Case "regional-news-lib":  
        'inix machen  
		Case "wetter":  
        'inix machen    
		Case Else
		' Jetzt gehts los - Ordner die nicht den namen der obigen haben werden  
		' In die XML Datei geschrieben  
		    tf.WriteLine("	    <line>")  
		    tf.WriteLine("	        <mode>Execute</mode>")  
		    tf.WriteLine("	        <entry>" & folder.name & "</entry>")  
		    tf.WriteLine("	        <count>3</count>")  
		    tf.WriteLine("	        <options>3</options>")  
		    tf.WriteLine("	    </line>")  
		
	        s = s & folder.name
	        s = s &  vbCrLf
		End Select
		End If
    Next
	' Zu Pruefzwecken eine Meldung ausgeben  
    ' MsgBox s  
End Sub


Set fsoA = CreateObject("Scripting.FileSystemObject")  
Set tfA = fsoA.CreateTextFile(ZielXML, True)
' Inhalte werden in Ziel XML geschrieben  
tfA.WriteLine("<?xml version='1.0' encoding='utf-8'?>")  
tfA.WriteLine("<script version='1'>")  
tfA.WriteLine("    <title>NewsDispatcher</title>")  
tfA.WriteLine("    <creator>ProppFrexx ONAIR</creator>")  
tfA.WriteLine("    <date>2011-01-03T15:31:58+01:00</date>")  
tfA.WriteLine("    <settings>")  
tfA.WriteLine("        <mode>Random</mode>")  
tfA.WriteLine("        <loopScriptLine>0</loopScriptLine>")  
tfA.WriteLine("        <reloadMediaLibrary />")  
tfA.WriteLine("        <asyncReloading>true</asyncReloading>")  
tfA.WriteLine("        <initialTrack />")  
tfA.WriteLine("        <archiveFilename />")  
tfA.WriteLine("        <additionalSongHistoryFilename />")  
tfA.WriteLine("        <maxHistory>0</maxHistory>")  
tfA.WriteLine("        <clearHistoryAtReload>true</clearHistoryAtReload>")  
tfA.WriteLine("        <jingleMediaLibrary />")  
tfA.WriteLine("        <jingleFrequencyFrom>0</jingleFrequencyFrom>")  
tfA.WriteLine("        <jingleFrequencyTo>0</jingleFrequencyTo>")  
tfA.WriteLine("        <jingleMode>Random</jingleMode>")  
tfA.WriteLine("        <jingleCount>1</jingleCount>")  
tfA.WriteLine("        <advertMediaLibrary />")  
tfA.WriteLine("        <advertFrequencyFrom>0</advertFrequencyFrom>")  
tfA.WriteLine("        <advertFrequencyTo>0</advertFrequencyTo>")  
tfA.WriteLine("        <advertMode>Random</advertMode>")  
tfA.WriteLine("        <advertCount>1</advertCount>")  
tfA.WriteLine("    </settings>")  
tfA.WriteLine("    <scriptLines>")  
' Aufruf der Subroutine  
ShowFolderList MainFolder, tfA 
' Abschluszeilen eintragen und Datei schliessen  
tfA.WriteLine("    </scriptLines>")  
tfA.WriteLine("    <fixTimeElements />")  
tfA.WriteLine("</script>")  
tfA.Close