تحميل مجانى برنامج الكنترول المدرسى ( كنوز ) وادارة اعمال الامتحانات وزارة التربية والتعليم

 

بسم الله الرحمن الرحيم

اهلا بكم متابعى موقع عالم الاوفيس

درس جديد من دروس مكتبة اكواد اكسل VBA

 

فتح اى فولدر داخل جهازك من خلال كود  اكسل VBA

 

فكرة جميلة جدا وجديدة اذا كان عندك فولدر فى اى مكان على جهاز الكمبيوتر الخاص بك وتريد فتحة من خلال ملف الاكسل الذى تعمل علية ومن خلال كود اكسل VBA سهل وبسيط جدا

فاليك الكود التالى

فكرة الكود

من خلال الكود تقوم بادراج مسار الفولدر الذى تريد فتحة وليكن مثلا

"C:\Temp" 'ادخل هنا مسار الفولدر الذى تريد فتحة على جهاز الكمبيوتر

بعد ادخال مسار الفولدر سيتم تنفيذ الكود بفتح الفولدر مباشرة

'In this Example I am Opening a Folder ("C:\Temp")

Sub sbOpeningAFolder()

 

Dim FSO

Dim sFolder As String

sFolder = "C:\Temp" 'You can specify your Folder which you wants to Open

 

Set FSO = CreateObject("Scripting.FileSystemObject")

 

If Not FSO.FolderExists(sFolder) Then

MsgBox "Specified Folder Not Found", vbInformation, "Folder Not Found!"

ElseIf FSO.FolderExists(sFolder) Then

Call Shell("explorer.exe " & sFolder, vbNormalFocus)

End If

 

End Sub