Private Sub MoveFiles(ByVal strDir As String)
        Dim di As New System.IO.DirectoryInfo(strDir)
 
        For Each dir As System.IO.DirectoryInfo In di.GetDirectories
            MoveFiles(dir.FullName)
        Next
 
        For Each fi As System.IO.FileInfo In di.GetFiles("*.xsl")
            fi.MoveTo("D:\")
        Next
    End Sub