[CLARO]

(30-05-16, 10:01 PM)mohamed haroon كتب :

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

كود :

Dim o As New OpenFileDialog
       With o
           .Filter = "all files|*.*|sound files|*.mp3;*.wav"
           If .ShowDialog = Windows.Forms.DialogResult.OK Then
                              IO.File.Copy(.FileName, IO.Path.ChangeExtension(.FileName, InputBox("add extantion", "", "example .wav")))
               MsgBox("done")
           End If
       End With

اهلا و سهلا نورت