Charger plusieurs fichier automatiquement par un commondialog

Question

Bonjour,
Je suis sur un programme permettant de charger des csv de suivis d'une installation. Cette installation fournit 1 csv de relevés par jours, nommé de cette manière : AAMMJJ .

Mon programme est capable de charger dans un tableau les donnés des csv, mais il faut que l'utilisateur les sélectionnent 1 par 1, ce qui prend du temps et ajoute des possibilités d'erreur (si l'utilisateur doit charger 1 mois de relevé, il y a de forte chance qu'il s'enmèlle les pinceaux et ne charge pas les csv dans l'ordre...)

Connaissez vous un moyen de charger successivement une sélection de fichiers, et si possible de les charger dans l'ordre en fonction de leurs noms?

(Il est possible de regrouper touts les fichiers à charger dans un même dossier si cela peu faciliter la programmation...)

NHenry · Answer

Bonjour,

Déjà, tu peux autoriser la multisélection des fichiers (une propriété à modifier).

Sinon, tu peux demander à l'utilisateur l'endroit où sont le fichier (DirectoryBrowser pour le contrôle, il me semble), ensuite, tu lui demande le mois/année et ensuite à toi de jouer.

Date.ToString("yyMMdd")

Mon site

JSilvere · Answer

DirectoryBrowser remplacerais mon commondialog?

Peu tu me mettre un petit exemple de comment utiliser ces outils ?

cs_ShayW · Answer

Salut
j'utilise le FolderBrowserDialog 
 If FolderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
'le path du directory 
 dirsin = FolderBrowser.SelectedPath
end if

cs_ShayW · Answer

je me suis trompé c'est en vb.net

NHenry · Answer

Bonjour,

J'ai pas vu non plus.
(il faut dire que VB6 est dépassé depuis plusieurs années)

Peut être en ne prenant que le premier fichier ensuite, tu peux récupérer le dossier et traiter de cette manière.

Mon site

cs_ShayW · Answer

Salut
j'ai trouvé ça 
http://bytes.com/topic/visual-basic/insights/697284-filesystemobject-model-how-list-files-directory-vb6

ajoutes sur la form un drivelistbox et un dirlistbox et un commandbutton
va au reference du projet et check le 
microsoft scripting runtime

Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim fld As Folder
Dim fil As File
Set fld = fso.GetFolder(Dir1.Path)
For Each fil In fld.Files
 'fil contient toutes les info sur le fichier
 ' par ex
 'fil.DateCreated
' fil.DateLastAccessed
 'fil.Name
Next
Set fil = Nothing
Set fld = Nothing
Set fso = Nothing

End Sub

Private Sub Drive1_Change()
On Error GoTo err:
Me.Dir1.Path = Me.Drive1.Drive
err:
End Sub

Charger plusieurs fichier automatiquement par un commondialog

6 réponses

Votre réponse

Discussions similaires