[VB.NET] FileOpen

[Luciano79]

Ciao,
ho bisogno di aprire + files contemporaneamente. Se con la FileOpen supero i 255 files mi da errore. Veramente non è possibile aprirne + di 255? Non esiste altro metodo?

[tas]

Ma come, non ti bastano 255 file aperti contemporaneamente? Quanti ne dovresti aprire?

[Luciano79]

Beh... se lo chiedo vuol dire che mi non mi basta. Non posso neanche aprirne un po' alla volta, devo perforza aprirli tutti contemporaneamente

[tas]

Potresti usare la libreria Microsoft Scripting Runtime. Ecco un esempio:

    Dim fso As New FileSystemObject
    Dim f As File
    Dim ts As TextStream
    
    Set f = fso.GetFile("c:\prova.txt")
    
    Set ts = f.OpenAsTextStream(ForReading)
    
    Do Until ts.AtEndOfStream
        Debug.Print ts.ReadLine
        '...
    Loop

    ts.Close

Puoi leggere o scrivere, basta cambiare i parametri al metodo OpenAsTextStream. Ciao

[Luciano79]

Non ho fatto proprio così, però mi hai dato un bello spunto...

Dim PtF() as System.IO.StreamReader

Redim Preserve PtF(NumeroDiFile)
...
For ContatoreFile = 1 To NumeroDiFile
   PtF(ContatoreFile) = New StreamReader(File(ContatoreFile))
Next ContatoreFile
...
StringaApp = PtF(ContatoreFile).ReadLine

Grazie Mille!