اريد كود لفتح my computer من برنامج الاكسس

[hassan omara]

عندي طلب غريب شوية وهو اني عايز كود فتح ماي كمبيوتر من برنامج الاكسس وكمان النت ورك عن طريق برنامج الاكسس فهل هناك طريقة ولا لا وشكرا

[ابوآمنة]

تفضل 

بالمرفق برنامج أكسس تستطيع بواسطته :

1. إغلاق الكمبيوتر .
2. إعادة التشغيل .
3. وضع الإسبات .
4. تسجل الخروج .

اغلاق الكمبيوتر.rar

[عبد اللطيف سلوم]

تفضل

اغلاق الكمبيوتر.accdb

[essam rabea]

الأخ hassan omara

لفتح This Pc استخدم

Shell "C:\Windows\explorer.exe shell:::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalFocus

ولفتح Network Connection

Shell "C:\Windows\explorer.exe shell:::{992CFFA0-F557-101A-88EC-00DD010CCC48}", vbNormalFocus

ارجو ان يفى بالغرض

تم تعديل أغسطس 15, 2019 بواسطه essam rabea

[د.كاف يار]

تفضل اخي الكريم

Dim Addfile As Object
Set Addfile = Application.FileDialog(3)
With Addfile
  .AllowMultiSelect = False
  .InitialFileName = ""
  .Filters.Clear
  .Filters.Add "All Files", "*.*"
  If .Show = True Then
      
      xFile = Trim(.SelectedItems(1))
      [اسم مربع النص للاحتفاظ بمسار الملف]=xFile


      Else
      Exit Sub
  End If
End With

 

[hassan omara]

الف شكر هو دا المطلوب شكرا ليك ياكبير الخبراء يا استاذ عصام

[hassan omara]

احد الاعضاء االمميزين جبهالي وحبيت اشاركها هنا

لفتح This Pc استخدم

Shell "C:\Windows\explorer.exe shell:::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalFocus

ولفتح Network Connection

Shell "C:\Windows\explorer.exe shell:::{992CFFA0-F557-101A-88EC-00DD010CCC48}", vbNormalFocus

[essam rabea]

42 دقائق مضت, hassan omara said:

الف شكر هو دا الطلوب شكرا ليك

من فضلك أشر بتمت الاجابة

[hassan omara]

اعملها ازاي معلش مش عارف ياريت الطريقة وشكرا يا استاذ عصام

[ابوآمنة]

ولتعم الفائدة للجميع

هذه أوامر فتح مجلدات النظام 

على الرابط التالي :

https://docs.rainmeter.net/tips/launching-windows-special-folders/