• 0
sareem

تعديل على نموذج نسخ

سؤال

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

قبل ان اكتب هنا طلبي بحثت في المنتدى عن النسخ الاحتياطي فوجدت العديد من الأمثلة

ولكني لم اجد مطلبي في أي منها

وطلبي هو كالتالي:

مرفق نسخه من نموذج للنسخ الاحتياطي للبرنامج ولكنه لا ينسخ الا البرنامج نفسه وحيث ان البرنامج مرتبط بمجلد في الدرايفر  D  لابد من نسخه ايضا

فكلي امل بالله ثم بكم في اعمل المطلوب داخل النموذج

COPY.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

ضع هذا الاجراء فى النموذج أو فى الوحدة النمطية

 

 

Sub Copy_Folder(FromPath As String, ToPath As String)    Dim FSO As Object    If Right(FromPath, 1) = "\" Then        FromPath = Left(FromPath, Len(FromPath) - 1)    End If    If Right(ToPath, 1) = "\" Then        ToPath = Left(ToPath, Len(ToPath) - 1)    End If    Set FSO = CreateObject("scripting.filesystemobject")    If FSO.FolderExists(FromPath) = False Then        MsgBox FromPath & " doesn't exist"        Exit Sub    End If    FSO.CopyFolder Source:=FromPath, Destination:=ToPathEnd Sub

 

و اضف هذا الكود الى كود الزر فى النموذج

 

 

Copy_Folder "D:\PIC", CurrentProject.Path & "\" & "copys\PIC"

 


 

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

+1 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .