Discussion :

[xav2303]

Bonjour,

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

Code :

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

        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 , je demande votre aide.

Merci d'avance.
Cordialement

Xavier

[benito9253]

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 :

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

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

[xav2303]

Impecable ça marche merci

Xavier