ردا على سؤال للاخ صفاء الموسوى
بخصوص النسخ على السى دى
وجدت انه من الاولى افراد موضوع جديد لشرح الموضوع بالتفصيل
بداية هذا البرنامج يعمل مع windowsxp فقط
لانه يعتمد على Windows XP's Cd writer
و انظمة الويندوز الاخرى لا يوجد بها Cd writer
نعتمد هنا على ملف dll ليقوم بعملية استدعاء Windows XP's Cd writer
و بعد ذلك يتم استكمال الخطوات من ال wizard
المرفق به مثال و ملف dll
فقط كل ما تحتاجه هو اضافة هذا الكود فى النموذج
Option Explicit
Private Brn As XPBurn
Private Sub Command0_Click()
Dim Path, myfile As String
Dim varItem As Variant
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "حدد الملف المراد نسخه"
If .Show Then
'get selected files
For Each varItem In .SelectedItems
myfile = varItem
Next varItem
End If
End With
If Len(myfile & "") > 0 Then
Set Brn = New XPBurn
Brn.AddFile myfile
Brn.StartBurn
End If
End Subو هذا الكود لتسجيل ملف dll مباشرة بمجرد فتح النموذج
Private Sub Form_Open(Cancel As Integer)
If Dir("c:\WINDOWS\system32\XPBurnObj.dll", vbNormal) = "" Then
FileCopy CurrentProject.Path & "\XPBurnObj.dll", "c:\WINDOWS\system32\XPBurnObj.dll"
Shell ("c:\WINDOWS\system32\Regsvr32.exe c:\WINDOWS\system32\XPBurnObj.dll /s")
Application.References.AddFromFile "c:\WINDOWS\system32\XPBurnObj.dll"
End If
On Error Resume Next
Application.References.AddFromFile "C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL"
End Subلا تنسونا من دعائكم و بالتوفيق للجميع
