كيفية فتح ملف من أي نوع وعرض محتوياته ؟

أعتقد أن هذا الكود يفتح نص مكتوب ضمن عنصر النص الموجود بالفيجوال

Wrap$ = Chr$(13) + Chr$(10) 'create wrap character

CommonDialog1.Filter = "Text files (*.TXT)|*.TXT"

CommonDialog1.ShowOpen 'display Open dialog box

If CommonDialog1.FileName <> "" Then

Form1.MousePointer = 11 'display hourglass

Open CommonDialog1.FileName For Input As #1

On Error GoTo TooBig: 'set error handler

Do Until EOF(1) 'then read lines from file

Line Input #1, LineOfText$

AllText$ = AllText$ & LineOfText$ & Wrap$

Loop

lblFile.Caption = CommonDialog1.FileName

txtFile.Text = AllText$ 'display file

txtFile.Enabled = True

------------------------------------------------------------------

إياس نبهان

eias@sify.com

أخي ( eias ) أنا لم اقصد فتح الملف بداخل برنامجي ولكن اريد تشغيل الملف في برنامج الدفتر أو تشغيل عرض بوربوينت أو فلاش .