If condizione Then
        sTestoLog = Xml.XmlConvert.ToString(Date.Now, "HH:mm:ss") & " - ATTENZIONE: non ci sono file da elaborare"
        ScrivoLog(sTestoLog, True, False)
        Me.Dispose()
    End If

    Private Sub FormMain_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        sTestoLog = "FINE PROCEDURA " & Xml.XmlConvert.ToString(Date.Now, "dd/MM/yy HH:mm:ss") & vbCrLf & _
                           "********************************************************"
        ScrivoLog(sTestoLog, True, False)
        End
    End Sub