05-10-18, 04:50 PM
السلام عليكم اخوتى
لدى كود يقوم بعمل مجلد على سطح المكتب ثم يقوم بنقل اختصارات سطح المكتب الى هذا المجلد كلها من مجلدات وما داخل المجلدات وانا اريده ان ينقل ملفات ال 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