Dim retDate
Dim contents
Dim myip

' Change here the proper location for the logfiles of Filezilla Server
Dim strLogPlace : strLogPlace = "C:\Program Files\FileZilla Server\Logs\"

' Change your required emailadresses here
Dim EmailFrom : EmailFrom = "ftpwatch@fake.com"
Dim EmailTo : EmailTo = "fake@fake.com"
'Dim EmailBCC: EmailBCC = ""

Set FSO = CreateObject("Scripting.FilesystemObject")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then 
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
'            WScript.Echo IPConfig.IPAddress(i)
        Next
		MyIp = IPConfig.IPAddress(0)
    End If
Next

ShowSubfolders FSO.Getfolder(strLogPlace)

'recursive procedure to loop through all folders and subfolders
Sub ShowSubFolders (Folder) 
  For Each objfile in Folder.Files            
	retDate = datediff("d",objfile.datelastmodified,now)
	Select Case Retdate
	Case 1				' A day before today
		Set objEmail = CreateObject("CDO.Message")																																				
		objEmail.From = EmailFrom
		objEmail.To = EmailTo
		objEmail.BCC = EmailBcc
		objEmail.Subject = "Automatic message: Filezillaserver logfile from " & date()-1

		Set filesys = CreateObject("Scripting.FileSystemObject") 
		Set filetxt = filesys.OpenTextFile(strLogPlace & objfile.name, 1, True) 
		contents = filetxt.ReadAll
		objEmail.Textbody = contents
		filetxt.Close   

		objEmail.AddAttachment strLogPlace & objfile.name
		objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MyIp
		objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		objEmail.Configuration.Fields.Update
		objEmail.Send
	End select
  Next
  For Each Subfolder in Folder.SubFolders
    ShowSubfolders Subfolder
  Next
End Sub