Déplacer tous les fichiers d'une même extension

Version imprimable

05/10/2009, 17h41
xav2303

Déplacer tous les fichiers d'une même extension

Bonjour,

Je cherche depuis un certain temps comment "Couper-Coller" des fichiers dans un dossier.
J'ai essayé ceci :

Code:

My.Computer.FileSystem.MoveFile(FolderBrowserDialog1.SelectedPath & "\*.txt", FolderBrowserDialog1.SelectedPath + "\Fichier texte")

Mais sans succès...
Je pense qu'il faut qu'il faut utiliser une boucle mais n'étant pas très bon dans ce domaine :aie:, je demande votre aide.

Merci d'avance.
Cordialement

Xavier

Bonjour,

J'ai fait ce code vite fait donc il peut certainement être amélioré. Mais normalement il devrait marcher. Tient moi au courant en cas de problème.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Public Sub MoveFile()
        Dim cheminFichiers As String
        Dim destination As String
 
        Try
            Dim FolderBrowserDialog1 As New FolderBrowserDialog
            FolderBrowserDialog1.ShowDialog()
            If DialogResult.OK Then
                cheminFichiers = FolderBrowserDialog1.SelectedPath
                Dim FichierTrouvé = Directory.GetFiles(cheminFichiers)
                For Each File In FichierTrouvé
                    If Microsoft.VisualBasic.Right(File, 4) = ".txt" Then
                        destination = File.Replace(cheminFichiers, cheminFichiers & "\Fichier texte\")
                        My.Computer.FileSystem.MoveFile(File, destination)
                    End If
                Next
            End If
        Catch ex As Exception
        End Try
    End Sub

05/10/2009, 21h24
xav2303

Impecable ça marche merci :D

Xavier