كيف اتأكد ان الاسطوانة موجودة وإذا كانت غير موجودة او ليست هى اطلب

السلام عليكم و رحمة الله و بركاته :

أخي الكريم : يمكن أن تسخدم هذه الـ Function , والتي تتحقق من جميع الـ CD-Roms الموجودة في الجهاز إذا كانت

تحتوي على القرص الخاص ببرنامجك أم لا ...

Imports System.IO

	Function CDExist() As Boolean

		Try
			Dim myDrives() As DriveInfo = DriveInfo.GetDrives
			Dim d As DriveInfo
			Dim result As Boolean = False
			'
			For Each d In myDrives
				If d.DriveType = DriveType.CDRom And d.IsReady Then

					If d.VolumeLabel = "AppName" Then
						result = True
					End If

				End If
			Next
			'
			Return result

		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

	End Function

ولكي توظفها في البرنامج , يمكنك وضع الكود التالي في حدث Load مثلاً , الخاص بفورم الاقلاع ( الواجهة الرئيسية ) ...

		If CDExist() = True Then
			' Ok. Run the program
		Else
			MessageBox.Show("Please, insert the Cd into the drive")
		End If

ملاحظة : هذه الـ Function تتأكد من أن اسم القرص الموجود هو ( AppName ) كمثال فقط , وهذا الاسم يوضع

بواسطة برنامج النسخ الذي نسخت به القرص . طبعاً يمكنك تغييره إلى الاسم الذي تريد , ولا تنسى تغييره في الـ Function أيضاً .

وفقكم الله في الدنيا و الآخرة ...