Discussion :

[Diantes]

Bonjour à tous et a toute

J'aimerai avoir une petite aide sur un soucis.Voila je m'explique:
Je suis en train d'essayer de faire un petit programme pour transférer un fichier vers un autre mais en testant chaque fichier dans un dossier pour modifier le nom aussi. Du coup j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim fileEntries2 As String() = Directory.GetFiles(targetDirectory2)

et donc comme vous pouvez le voir je récupère un tableau de string du coup j'ai le soucis quand je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each fileName2 In fileEntries2

il va faire 1 puis le 10 11 12 13 14 15 16 17 18 19 2 20 ainsi de suite alors que je veux 1 2 3 4 5 6 7 8 9 10 11 etc connaissez vous un moyen pour que l'ordre soit croissant en utilisant mon fileEntries2?

En vous remerciant d'avance

[SaumonAgile]

Tu peux stocker tous les noms de fichiers qui sont numériques dans une collection d'entiers ou de longs et ensuite faire la recherche en utilisant cette liste de nombres.

[Diantes]

Salut merci de ta réponse.
J'ai justement penser à prendre la longueur de la collection de string et à boucler par rapport mais je restais bloquer avec le même soucis.

Donc si j'ai bien compris il faut que je crée une collection d'entier en ajoutant chaque fichier dedans?Puis je boucle dans la nouvelle collection créer?

[Er3van]

Je suis pas bon en VB, mais ça donnerait quelque chose comme :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim sortedList As New SortedList(Of integer, String)
 
For each fileName in Directory.GetFiles(targetDirectory2)
    sortedList.Add(Short.Parse(fileName.Substring(0,2).Trim()), fileName)
Next fileName 
 
For Each kvp As KeyValuePair(Of integer, String) In sortedList 
    Console.WriteLine(kvp.Value)
Next kvp

[Diantes]

Ree et merci d'avoir répondu

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    sortedList.Add(Short.Parse(fileName.Substring(0,2).Trim()), fileName)

J'ai une erreur avec cette ligne du coup j'ai fait un try catch pour voir le soucis et l'erreur qui est rétournée est que le format de la chaîne d'entrée est incorrect
ca m'éjecte du programme

[Er3van]

C'est sans doute que le parse échoue...

J'ai mis ça en supposant que seuls les deux premiers caractères de ton fileName étaient des chiffres...c'est peut-être une mauvaise hypothèse !

[Diantes]

hehehe effectivement je n'ai pas assez fourni d'information.

Donc plus précisemment je prends tous les fichiers d'un dossier pour les renommer de cette maniere

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim rep As String = targetDirectory2 & "\" & madate2 & "-" & i & Path.GetExtension(fileName)

puis je les déplace vers un autre dossier.Tout ceci marche correctement si le dossier est vide car ca ne pose aucun soucis.
Par contre si le dossier n'est pas vide et que j'ai déja déplacé des fichiers suivant mon programme cela risque de coller les nouveaux sur les anciens du coup je perdrais les autres fichiers.
C'est pourquoi je teste et je vérifie tous les fichiers du dossier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
If IsVide(targetDirectory) = "Vide" Then
                i = i
        Else
                For Each fileName2 In fileEntries2
                   If fileName2 = rep Then
                       i = i + 1
                   Else
                       i = i
                   End If
                   rep = targetDirectory2 & "\" & madate2 & "-" & i & Path.GetExtension(fileName)
                Next
end if

Et ca marcherait bien si dans le fileentries il compte les fichiers dans l'ordre croissant^^