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..