[الوادي]

يا سعود،

مشكلة ارسال الملفات بالترتيب المرغوب دون الحالة لتغيير اسمائها حلها موجود بالرابط التالي عن طريق عمل ملف XML وارساله لبرنامج MovieMaker
https://msdn.microsoft.com/en-us/library...s.85).aspx

وهذه مساهمة بعمل دالة تقوم بعمل ملف XML ترسل لها مصفوفة باسماء الملفات بالترتيب المرغوب ويعيد لك إسم ملف XML مع مسارة

PHP كود :

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim files() As String =
            {"C:\3.jpg",
             "C:\1.jpg",
             "C:\2.jpg"
            }

        Process.Start("MovieMaker", CreateImportFileList(files))

    End Sub


    Private Function CreateImportFileList(files() As String) As String
        '' https://msdn.microsoft.com/en-us/library/windows/desktop/bb404146(v=vs.85).aspx
        Dim importFileList As String = "importfilelist.xml"
        Using writer As Xml.XmlWriter = Xml.XmlWriter.Create(importFileList, New Xml.XmlWriterSettings() With {.Indent = True})
            writer.WriteStartDocument() ' Document '
            writer.WriteStartElement("MovieMk") ' MovieMk '
            '-------------------------------'
            writer.WriteStartElement("Content") ' Content '
            '-------------------------------'
            For Each file As String In files
                writer.WriteStartElement("ContentFile") ' ContentFile '
                writer.WriteAttributeString("Filename", file) ' Filename '
                writer.WriteEndElement() ' End ContentFile '
            Next
            '-------------------------------'
            writer.WriteEndElement() ' End Content '
            '-------------------------------'
            writer.WriteStartElement("AutoEdit") ' AutoEdit '
            writer.WriteAttributeString("Style", "FadeReveal") ' Style '
            writer.WriteEndElement() ' End AutoEdit '
            '-------------------------------'
            writer.WriteStartElement("DeleteOnClose") ' DeleteOnClose '
            writer.WriteEndElement() ' End DeleteOnClose '
            '------------------------------- '
            writer.WriteEndElement() ' End MovieMk '
            writer.WriteEndDocument() ' End Document '
            '----------------------------------------------------------- '
            writer.Close()
        End Using
        Return importFileList
    End Function

End Class 


ملاحظة:
يوجد عنصر أخير باسم DeleteOnClose ووظيفه حذف ملف XML بعد قراءته من جهة برنامج MovieMaker لعدم الحاجة بعد قراءته
(والذي يقوم بحذفه هو برنامج MovieMaker نفسه)