كيف أفتح باث عن طريق الـvb6 (صورة)

[f16wx]

هااااي :smailes86: shabaab

الصراحة أشتقت لكم كثيررررررررررررررر


محتاج كود إذا ضغطت على click يفتح لي ":\c" على طول مثل ماهو باين في الصورة تحت

أتمنى أنكم تشاركون في خبراتكم
و منكم نستفيد :smailes66:




10x

[IBRAHIM_A]

هـــذا هو الكود اخي

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal aopen As _
String, ByVal afile As String, ByVal afrom As String, _
ByVal Dir As String, ByVal FsShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Function Open******** (ByVal DocName As String) As Long
Open******** = ShellExecute(Me.hwnd, "Open", DocName, _
"", "C:\", SW_SHOWNORMAL)
End Function


الكود فى الزر عند النقر عليه

Private Sub Command1_Click()
Open******** "C:\"
End Sub
استبدل الحروف ******** بكلمة Documen.t بدون نقطه قبل حرف t
المشاركه تقلب هذه الكلمة الى ****** لا اعرف لماذا .
وبالطبع اذا اردت استخدام هذا الكود لفتح مسار تكتبه وقت تنفيذ البرنامج يجب الاستعانه بالمربعات الحواريه .
قمت بتجربته يعمل جيدا معى :smailes86:

[f16wx]

:smailes69: أشكرك يا براهيم و بقوة
الصراحة شغلك مية المية
إشتغل الكود ولا أروع

لا كن يابراهيم أنا حصلت على كود أخر :smailes10: :smailes10: :smailes10:

Shell "explorer.exe c:\", vbNormalFocus

فمن خلال خبرتك أتمنى أن تبين لي ميزة الكود الذي كتبتة أنت
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal aopen As _
String, ByVal afile As String, ByVal afrom As String, _
ByVal Dir As String, ByVal FsShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Function Open********(ByVal DocName As String) As Long
Open******** = ShellExecute(Me.hwnd, "Open", DocName, _
"", "C:\", SW_SHOWNORMAL)
End Function
Private Sub Command1_Click()
Open******** "C:\"
End Sub

لأنة باين إنة متعوب علية و أكيد فية ميزة أفضل من الكود الذي حصلت علية أنا :smailes61:


ملاحظة: واجهت نفس المشكلة عند كتابة ((أوبن دوكيومنت =Open********))
10x

[يــس]

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

بالتوفيق