سؤال للمحترفين

السلام عليكم

لنفرض ان اسم الملف a.txt

اذا كتبت

shellexecute("a.txt") فسوف يشتغل بالبرنامج الافتراضي. مثلا (notepad.exe)

اذا كتبت :

shellexecute("wordpad.exe a.txt" )

سيعمل بالدفتر

والله اعلم

هل جربت هذا الحل يا اخ ام انك تتوقع ان يكون هذا هو الحل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟!!!!!!!!!!!!

لاني اول مره ارى مثل هذا الحل و مع ذلك جربته و لم يظبط

؟؟؟؟؟؟؟؟؟؟

ارسل لي مثال ان كان موجود عندك

حضرة الأخ eng_ashraf:

إن البرامج الموجودة في مجلد الويندوز تعمل بدون كتابة مسارها الكامل مثال:

عند كتابة notepad في موجه الأوامر Dos فإن برنامج المفكرة سوف يفتح تلقائياً.

أما برنامج WordPad فهو غير موجود في مجلد الويندوز لهذا ولكي يعمل يجب كتابة مساره بالكامل ومساره هو:

C:\Program Files\Windows NT\Accessories\wordpad.exe في (Windows 2000 Professional) وقد يختلف مساره من ويندوز إلى أخرى.

لكن كتابة الأمر هكذا ليست صحيحة تماماً لأنه يجب وضع علامة الاقتباس " قبل المسار وبعده لاحتوائه على فراغات:

"C:\Program Files\Windows NT\Accessories\wordpad.exe"

وإليك الكود التالي في فيجوال بيسك 6:

Option Explicit

Private Sub Command1_Click()
Dim ExePath1 As String
Dim ExePath2 As String
Dim FilePath As String
Dim Cmd1 As String
Dim Cmd2 As String

ExePath1 = "C:\Program Files\Windows NT\Accessories\wordpad.exe"
ExePath2 = "notepad"

FilePath = "D:\readme.txt"

Cmd1 = ExePath1 & " " & Chr(34) & FilePath & Chr(34)
Cmd2 = ExePath2 & " " & Chr(34) & FilePath & Chr(34)

Shell Cmd1, vbNormalFocus
Shell Cmd2, vbNormalFocus
End Sub