'On crée une liste de fichiers de test Dim lesFichiers As List(Of String) = New List(Of String) From { "trucss.csv", "trucss2.csv" }
'On crée une liste de fichiers de test Dim lesFichiers As List(Of String) = New List(Of String) From { "C:\Test\trucss.csv", "C:\Test\trucss2.csv" }
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub chargeFichier(lesFichiers As List(Of String), datas As List(Of DataTrucss)) Throw New NotImplementedException() End Sub
Throw New NotImplementedException()
Private Sub butChoixRepertoires_Click(sender As Object, e As EventArgs) Handles butChoixRepertoires.Click 'autorise l'utilisateur à selectionner plusieurs répertoires dans un même répertoire source BetterFolderBrowser1.Multiselect = True 'je ne sais pas pourquoi, je n'arrive pas à le faire en mode design.... If BetterFolderBrowser1.ShowDialog() = DialogResult.OK Then For Each dossier In BetterFolderBrowser1.SelectedFolders 'pour chaque répertoires sélectionné Dim laDate As DateTime = MonthCalendar1.SelectionStart 'on récupère la date de départ Do Dim fichier As String = Path.Combine(dossier, String.Format("{0:yyyyMMdd}.txt", laDate)) 'on crée le chemin de fichier pour cette date If File.Exists(fichier) Then lesFichiers.Add(fichier) 'si le fichier existe, on l'ajoute à la liste laDate = laDate.AddDays(1) 'on passe à la date suivante Loop While (laDate < MonthCalendar1.SelectionEnd) 'et on recommence jusqu'à la date de fin Next dossier End If End Sub