25-08-19, 03:22 AM
كود :
Try
If TextBox1.Text = "" Then
MsgBox("يرجى تحديد اسم الملف المراد الدخول اليه") 'هنا لاعادة تسمية الملف قبل الحفظ
Return
End If
Dim Psi As New ProcessStartInfo
With Psi
.FileName = My.Application.Info.DirectoryPath & "\مقالات\" & TextBox1.Text & ".dotx"
.WindowStyle = ProcessWindowStyle.Maximized
ProgressBar1.Value = 50
.Verb = "open"
End With
ProgressBar1.Value = 100
Process.Start(Psi)
ProgressBar1.Value = 0
Catch ex As Exception
MsgBox("يرجى التأكد من اسم الملف الذي ادخلته", MsgBoxStyle.OkOnly)
End Try
في الكود اعلاه , اود فتح ملف وورد من خلاله , الكود يعمل بشكل ممتاز
مشكلتي انني لا أود فتح مستندات من امتداد dotx فقط بل أود من خلال هذا الكود فتح مختلف الامتدادات النصية
الحياة فترة اختبار , إما أن تكون او لاتكون
لن امل من البحث ولن امل من السؤال
[b]رواد المعلوميات[/b]