Dim LogsFolder As String = srvr.LogsFileFolder
Log("Logfile folder created: "& LogsFolder)
Dim filelist As List
filelist.Initialize
filelist.AddAll(File.ListFiles(LogsFolder))
For Each f As String In filelist
If f.StartsWith("b4j") Then
File.Delete(LogsFolder,f)
End If
Next