Discussion :

[kravken]

Bonjour à tous,

Voici le but du programme que je cherche à réaliser:
Spécifier un dossier dans une textbox, et déplacer tous les fichiers .xls contenus dans des sous dossiers du dossier spécifié
Voici mon code (je suppose que mon erreur est basique mais pas faute d'avoir cherché, je ne trouve pas

Code :

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

1
2
3
4
5
6
7
8
9
        Dim Excel As String
        Dim Fichiers As String() = Directory.GetFiles(Reglages3.TB_DOSSIER.Text, SearchOption.AllDirectories)
        For Each Excel In Fichiers
            Dim extension As String = Path.GetExtension(Excel)
            Dim nom_fichier As String = Path.GetFileName(Excel)
            Dim test As String = "LEAP_VCI"
            If extension = ".xls" And nom_fichier.Contains(test) Then
                Dim combinaison As String = Path.Combine(Reglages3.TB_DOSSIER2.Text, nom_fichier)
                My.Computer.FileSystem.MoveFile(Excel, combinaison, True)

Merci d'avance pour votre précieuse aide!

EDIT: L'erreur est sur la ligne

Code :

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

Dim Fichiers As String() = Directory.GetFiles(Reglages3.TB_DOSSIER.Text, SearchOption.AllDirectories)

Puisqu'il me renvoie un Fichiers.Length = 0
Je ne comprends donc pas pourquoi il ne récupère pas les fichiers.. Sûrement pas la bonne synthaxe..

[Phil Rob]

Bonjour,

Ci-joint, CopierDossier.pdf. C'est un extrait de cours informant sur la copie récursive des fichiers d'un dossier. Tu pourras sûrement l’adapter à ton problème.

Pour ce qui est du code que tu présentes dans ton message, Path.GetFileName(Excel) m'intrigue : tu cherches des fichiers dont le nom ET l'extension sont identiques (Excel) ?

Bonne soirée,

[kravken]

Merci beaucoup pour ce cours c'est exactement ce qu'il me fallait, j'ai trouvé solution à mon problème! C'est extrait d'un cours libre d'accès ou payant?
Sinon oui c'est bien ça, je cherche des fichiers Excel et qui comportent une certaine chaine de caractère dans leur nom

[Phil Rob]

Bonjour,

Dans le code que je t'ai envoyé, tu disposes du nom de chaque fichier, un à la fois, dans la variable UnFichier.
Il est donc facile de décider dans la boucle :

Code :

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

1
2
3
4
5
If UnFichier.IndexOf(SousChaineCherchee) > -1 Then
 ... action car SousChaineCherchee est présente dans le nom du fichier
Else
 ... action car SousChaineCherchee N'est PAS présente dans le nom du fichier
End If

L'extrait de cours que j'ai envoyé provient, comme tout le reste de ma documentation, de syllabus que j'ai produits. Mais ces syllabus sont des supports de cours et non des manuels à l'usage d'autodidactes.
En classe, leur contenu est expliqué, discuté, reformulé, ..., et dans le forum, l'extrait posté avec un message est choisi dans le contexte de la discussion.
Le contenu de ces syllabus est tout juste imbuvable sans le prof pour le servir ...

Pour les autodidactes, il existe de nombreux excellents cours sur ce forum. Fouille un peu et tu verras ...

Par ailleurs, je manquerai pas de t'envoyer d'autres extraits s'ils sont susceptibles de t'aider à résoudre un problème donné.

Bonne journée,