[ابو روضة]

السلام عليكم اخوتى

لدى كود يقوم  بعمل مجلد على سطح المكتب ثم يقوم بنقل اختصارات سطح المكتب الى هذا المجلد كلها من مجلدات وما داخل المجلدات وانا اريده ان ينقل ملفات ال exe فقط الموجودة على سطح المكتب ويترك الباقى.

كود :

   FolderBrowserDialog1.ShowDialog()
       Directory.CreateDirectory(FolderBrowserDialog1.SelectedPath & "\اختصارات سطح المكتب")
       Dim fileList = My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.Desktop,
      Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.*")
       On Error Resume Next
       For Each foundFile In fileList
           My.Computer.FileSystem.MoveFile(foundFile,
              FolderBrowserDialog1.SelectedPath & "\اختصارات سطح المكتب\" & My.Computer.FileSystem.GetFileInfo(foundFile).Name)
       Next