[غزوان خليل]

لقد كتبت كود فتح ملفات لكن لااعرف اين الخطأ بهذا الكود

PHP كود :

Try
            Dim ofd As New OpenFileDialog
            OpenFileDialog = "my music"
            OpenFileDialog = "Media Files"
(*.AVI;* IFV;* DIV;* DIVX;* WMV;* ASF;*ASX;* MPG;* MPEG;* MPE;* M4V;* MP4;* MVV;* M2V;* M1V;* MOD;* QT;* MOV;* DV;*DAT;* 3GP;* 3G2;* 3GPP;* 3GP2;* MS;*DVR;* DVR;*MS;* GVI;* OGM;* OGG;* OGV;* MKV;* FLV;* F4V;* F4P;* TS;* TP;*TRP;* M2TS;* M2T;* MTS;* AMV;* MTV;* CDG;* NSV;* FLI;* FLC;* RM;* RAM;* RMVB;* RV;*IVR;* WAV;* MP3;* MPEG3;* CDA;* MP2;* M4A;* WMA;* OGG;* AAC;* MPC;* MPP;* MP+;*AIF, AIFF;* AIFC;* AU;*SND;* AMR;* AWB;* FLAC;* AC3;* PCX;* RAS;* TGA;* WMF;* EMF;*MPEG;*VOB;* AVI;* Ogg;*OGM;* VIVO;*ASF;*WMA;*WMV;* QT;*MOV;*MP4;* RealMedia;* Matroska;* NUT;* NuppelVideo;*FLI;* YUV;*4MPEG;* FILM;*RoQ;*PVA files;* XAnim;* DLL codecs;*VideoCD, SVCD;* DVD;* 3ivx ;* DivX 3/4/5;*WMV ;* H.264 movies )

OpenFileDialog=AllFiles(*.*)|*.*"

            If OpenFileDialog() = Windows.Forms.DialogResult.OK Then

            End If
        Catch ex As Exception
            MessageBox.Show("هذه الصيغة ليست مدعومة",
           "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try