[VB.NET] Uso di FileReader per caricamenti periodici

[Rooney Band]

Ciao a tutti,
Sarano 2 orette che sto sopra questo problema ma purtroppo non sono riuscito a trovare una soluzione accettabile.

Allora io voglio creare un FileReader che si collega ad un documento contentente percorsi del pc.
Voglio che ogni percorso viene utilizzato a distanza di 5 secondi l'uno. Ho quindi utilizzato un timer. Non posso creare il FileReader nel metodo del timer perchè dopo lo inizializzerebbe ogni 5 secondi e succederebbe un casino di stream.
Non posso crearlo tra le variabili globali perchè il file che devo fargli leggere viene creato nel metodo Form_Load quindi quel percorso è ancora inesistente e quindi da problemi.
Mi era venuto in mente di creare il FileReader in globale e dargli più in là il percorso del file ma non so se si possa fare oppure creare il FileReader in globale ma dopo il load.....aiutatemi!!

grazie

[MdE2005]

Potresti postare il codice? Non ho capito questo: "Voglio che ogni percorso viene utilizzato a distanza di 5 secondi l'uno "

Grazie

[Rooney Band]

Scusami tanto del ritardo....ma ieri non sono stato molto al pc
ecco il codice:

Private Sub Intervallo2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Intervallo2.Tick
        Try
            percorso = Reader.ReadLine
            FotoPredefinite.BackgroundImage = Image.FromFile(percorso)
            FotoPredefinite.Refresh()
        Catch
            FotoPredefinite.BackgroundImage = My.Resources.logo
        End Try
    End Sub

Il timer ha un intervallo di 5 secondi e ogni 5 secondi prende un percorso scritto nel reader.
Inendevo questo anche se non è la cosa fondamentale.

[Pirelli72]

Dipende anche se vuoi che i percorsi vengano letti in modo Random o sequenzialmente. In tutti e due i casi mi sembra sufficiente, invece che utilizzare uno StreamReader, inserire in una matrice i percorsi letti e richiamarli o sequenzialmente o random...tipo:

Public Class Form1
    Dim lista() As String
    Dim rnd As System.Random

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        lista = System.IO.File.ReadAllLines("C:\lista.txt")
        rnd = New System.Random(CInt(System.Environment.TickCount And Integer.MaxValue))
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PictureBox1.Image = Image.FromFile(lista(rnd.Next(0, lista.GetUpperBound(0))))
    End Sub
End Class

[Rooney Band]

Pirelli72 grazie mille dell'aiuto.
Ora riesco finalmente a farlo partire