[Hamza Yassine]

ان شاء الله يفي بالغرض

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fileList = My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.Desktop,
             Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.*")

        For Each foundFile In fileList
            My.Computer.FileSystem.MoveFile(foundFile,
                "C:\Hamza-Yassine\" & My.Computer.FileSystem.GetFileInfo(foundFile).Name)
        Next
    End Sub
End Class