[VB.NET] Controllo modifiche a un file con ricorsione

[Brams]

Salve a tutti, spero che qualcuno possa aiutarmi, devo fare un programma che controlla quando un file viene modificato, se viene modificato visualizza una barra verde(form verde) altrimenti faccio partire un timer impostabile allo scadere del quale verifico che non sia ancora stato modificato (il file) e visualizzo un barra rossa (red_panel).
Il codice è questo ma non sembra funzionare la ricorsione che mi serve per controllare continuamente se il file viene modificato, posto la sub di controllo:

Private Sub Controlla_Date()
If date.equals(Date.Now,infoReader.LastWriteTime) Then
Red_Pan.Visible = False
Else
If Red_Pan.Visible = True Then
System.Threading.Thread.Sleep(1000)
Else
System.Threading.Thread.Sleep(FormSet.Timer * 60000)
If date.equals(Date.Now,infoReader.LastWriteTime) Then
Red_Pan.Visible = True
End If
End If
End If
Controlla_Date()
End Sub

Qualcuno sa darmi qualche dritta?

[Brams]

a e la richiamo così:

Private Sub FormBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FormSet.Visible = False
Me.Visible = True
Red_Pan.Visible = False
infoReader = My.Computer.FileSystem.GetFileInfo("D:\RoulHistory \client_last100.txt")
Controlla_Date()
End Sub

[alka]

Nel caso in esame, non penso che la ricorsione sia di aiuto: se approfondisci il concetto di ricorsione, scoprirai che ha altre finalità.

Nel tuo caso, è sufficiente che - tramite un Timer, ad esempio - tu invochi quel metodo di controllo periodicamente, senza che questo invochi se stesso, perché non c'è motivo di farlo.

In alternativa, se non vuoi discostarti dal tuo tipo di implementazione (dove introduci un'attesa prima di riprendere il controllo), fai un ciclo in cui richiami per un numero precisato di volte la funzione di controllo.

Se usi la ricorsione a quel modo, nel caso in cui il file non venga modificato, esaurirai ben presto lo stack a disposizione.

[Brams]

infatti inizialmente era quello il problema....comunque adesos il problema non è lo stack ma che non funziona c'è quando lo eseguo parte subito con l'attesa, allo scadere del tempo mi visualizza la barra rossa e poi bom...sembra morto se modifichi il file non ritorna verde...come mai??

[Brams]

Intendi una cosa del genere?

Public Class FormBar
Dim ResultDate As Integer
Dim infoReader As System.IO.FileInfo

Private Sub FormBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FormSet.Visible = False
Me.Visible = True
Red_Pan.Visible = False
infoReader = My.Computer.FileSystem.GetFileInfo("D:\RoulHistory \client_last100.txt")
freq_agg.Enabled = True
freq_agg.Start()
End Sub

Private Sub Controlla_Date()
If Date.Now.Minute = infoReader.LastWriteTime.Minute Then
Red_Pan.Visible = False
Else
If Red_Pan.Visible = True Then
System.Threading.Thread.Sleep(1000)
Else
System.Threading.Thread.Sleep(FormSet.Timer * 60000)
If Date.Now.Minute <> infoReader.LastWriteTime.Minute Then
Red_Pan.Visible = True
End If
End If
End If
End Sub

Private Sub end_of_time(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles freq_agg.Tick
Controlla_Date()
freq_agg.Start()
End Sub
End Class

NON FUNZIONA LO STESSO....TALE E QUALE A PRIMA

[alka]

Originariamente inviato da Brams
Intendi una cosa del genere?

Formatta il codice usando il tag [CODE], come da Regolamento, altrimenti non si capisce nulla.

[Brams]

Scusa ma mi sono appena registrato e non sapevo di questa cosa....così va bene?

Public Class FormBar Dim ResultDate As Integer Dim infoReader As System.IO.FileInfo  Private Sub FormBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load FormSet.Visible = False Me.Visible = True Red_Pan.Visible = False infoReader = My.Computer.FileSystem.GetFileInfo("D:\RoulHistory\client_last100.txt") freq_agg.Enabled = True freq_agg.Start() End Sub  Private Sub Controlla_Date() If Date.Now.Minute = infoReader.LastWriteTime.Minute Then Red_Pan.Visible = False Else If Red_Pan.Visible = True Then System.Threading.Thread.Sleep(1000) Else System.Threading.Thread.Sleep(FormSet.Timer * 60000) If Date.Now.Minute <> infoReader.LastWriteTime.Minute Then Red_Pan.Visible = True End If End If End If End Sub  Private Sub end_of_time(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles freq_agg.Tick Controlla_Date() freq_agg.Start() End Sub End Class

[Brams]

direi di no XD aspetta ci riprovo

Public Class FormBar
    Dim ResultDate As Integer
    Dim infoReader As System.IO.FileInfo

    Private Sub FormBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FormSet.Visible = False
        Me.Visible = True
        Red_Pan.Visible = False
        infoReader = My.Computer.FileSystem.GetFileInfo("D:\RoulHistory\client_last100.txt")
        freq_agg.Enabled = True
        freq_agg.Start()
    End Sub

    Private Sub Controlla_Date()
        If Date.Now.Minute = infoReader.LastWriteTime.Minute Then
            Red_Pan.Visible = False
            Exit Sub
        Else
            If Red_Pan.Visible = True Then
                System.Threading.Thread.Sleep(1000)
                Exit Sub
            Else
                System.Threading.Thread.Sleep(FormSet.Timer * 60000)
                If Date.Now.Minute <> infoReader.LastWriteTime.Minute Then
                    Red_Pan.Visible = True
                    Exit Sub
                End If
            End If
        End If
    End Sub

    Private Sub end_of_time(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles freq_agg.Tick
        Controlla_Date()
        freq_agg.Start()
    End Sub
End Class

[Brams]

Fatto, riesci a darmi qualche dritta?

[alka]

Ci sono diverse cose dubbie nella tua implementazione.

Innanzitutto, non è chiaro a cosa servano tutte le attese (Sleep) che hai inserito: quando si verifica la condizione del "file modificato", quella condizione deve rimanere sempre e comunque vera.

Poi, non hai indicato come hai configurato il Timer: continui a invocare il metodo Start a ogni "tick" senza un motivo (il timer non si arresta a meno che tu non lo faccia esplicitamente).

Infine, la logica di verifica della condizione di "modificato" è errata: per sapere se un file è stato modificato, ti basta memorizzare la sua data di ultima modifica all'avvio e periodicamente acquisire il valore aggiornato e verificare se è superiore al precedente; quando lo è, il file è stato modificato, quindi mostri la barra verde; quando invece non lo è, la barra rimane rossa.

Il confronto dei minuti non serve, così come lo hai implementato, e non servono nemmeno le attese.

Rivedi la logica della tua applicazione in base a queste indicazioni e poi vediamo se ci sono altri problemi di diverso tipo.