1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Dim i As Integer
Dim nbAllocations as Integer
nbAllocations = 1000
i = 1
Traitement.LblMessage.Text = "Lecture des trains d'origine"
Traitement.Show()
Traitement.Refresh()
Dim Preserve FichiersDepart(nbAllocations)
For Each file As String In Directory.GetFiles(CheminMSTS + "\Trains", "*.*", System.IO.SearchOption.AllDirectories)
if ( i > nbAllocations ) then
nbAllocations = nbAllocations + 1000
ReDim Preserve FichiersDepart(nbAllocations)
end if
FichiersDepart(i - 1) = file.ToLower
i = i + 1
DoEvents()
Next
ReDim Preserve FichiersDepart(i-1) |
Partager