شرح لبعض إستخدامات المكتبه

جزاك الله خيراُ على هذه الأمثلة الرائعة و جعلها في ميزان حسناتك

شكرا لمرورك أخى COMFORT

ومازلت أرجو إن كان أحد الأعضاء يعلم أى إستخدام أخر للمكتبه

أن يكمل الموضوع

جزالك الله خيراا

وانا ححاول ابحث فى الموضوع ده ..ومشكورر على المجهود

لعرض كل المجلدات فى درايف معين

 Public Sub GetSubFolders(rfldr As Scripting.Folder)
	Dim fldr As Scripting.Folder

	For Each fldr In rfldr.SubFolders
		MsgBox fldr.Name
	Next
End Sub

Private Sub Form_Load()
	Dim fso As New Scripting.FileSystemObject
	Dim rfldr As Scripting.Folder

	Set rfldr = fso.GetFolder("C:\")	
	Call GetSubFolders(rfldr)	
End Sub

عرض كل الدريفات اللى فى الجهاز

Public Sub GetDrives()

	Dim fso As New Scripting.FileSystemObject
	Dim dr As Scripting.Drive

	For Each dr In fso.Drives
		MsgBox dr.DriveLetter
	Next
End Sub

Private Sub Form_Load()
	GetDrives
End Sub

عرض محتويات ملف فى تيكست بوكس

Dim fso As New Scripting.FileSystemObject
	Dim ts As Scripting.TextStream

	Set ts = fso.OpenTextFile("c:\autoexec.bat", ForReading)

	Text1.Text = ts.ReadAll
	ts.Close
	Set ts = Nothing

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

Dim fso As New Scripting.FileSystemObject
	Dim ts As Scripting.TextStream

	Set ts = fso.OpenTextFile("c:\MyNewFile.txt", ForWriting, True)

	ts.Write Text1.Text
	ts.Close
	Set ts = Nothing

بارك الله فيك أخى FemTo

ياريت كل الى عنده معلومه يكون زيك وميبخلش بيها

عمل رائع يا أخوة

شكرا لجميع الاخوة الكرام

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

ولكنى ابحث عن مكتبة اخرى تقوم بتغيير سيريال Drive © ولك الف شكر

السلام عليكم

مشكورين كلكم يأخوانى على ردودكم

وبالنسبه لك يأخى عصام عبد الجواد

سوف أبحث عن المكتبه المطلوبه وطريق لتغير سريال درايف

رابك الله فيك يا اخ جينييييييز وجعله الله في ميزان حسناتك

موضوع جميل وشرح ممتاز

الأخوة الإعزاء والله تعاونكم يفرح وأشعر أنكم فعلاً أسرة وأنا سعيد جداً بانضمامي لمنتداكم الرائع.

ولكن أيها الإحباء ما فائدة الحصول على سريال الهارد (البارتيشن) ونحن نعلم أنه يتغير بعد كل فرمته للبارتيشن.

أما من وسيلة للحصول على الرقم المسلسل المكتوب من المصنع على جسم الهارد نفسه. وليس له علاقة بالبرتيشنات

لكم جزيل شكري

السلام عليكم

أخى الكريم HatemHabeeb

فى التوقيع الخاص بى موضوع بأسم

معرفه الرقم المسلسل للقرص الصلب </SPAN></SPAN>

به ما تريد

الله يعطكم العافيه على المجهود الطيب اخي العزيز GENIUS-IT والاخ العزيز FemTo

بس بالنسبة للاخ FemTo ... FemTo بثـلج ولا بدون ثـلج .........

السلام عليكم

شكرا على هذا الموضوع الجميل

ساقوم بنقله الى قسم الارشيف والموضوعات المتقدمة , بعد انتهائه ان شاء الله تعالى

السلام عليكم

اخى العزيز هانى

يمكنك نقل الموضوع فهو مكتمل

أصلا موضوع قديم بس جدده بعض الردود

درس مفيد بالفعل جزاك الله كل الخير