اذهب الي المحتوي
أوفيسنا

الصور من فولدر الى اخرعن طريق الفورم


انحيلة

الردود الموصى بها

الاخوة والاخوات اعضاء هذا الصرح الرائع ،

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

ولتوضيح الفكرة قمت بعمل ملف تنفيدي بواسطة احد برامج ِAuto Run لمزيد من الحماية والخصوصية واريد ان يتم اظافة الصور الى الفولدر الموجود به ملف الاكسل.

ارجو ان تكون الفكرة واضحة وعلى فكرة كيف ما كان تطبيق الفكرة فلا يهم المهم النتيجة وفقكم الله وجعل جميع اعمالكم في ميزان حسناتكم .

في انتظار ردودكم تقبلو مني اسمى عبارات الود والاحترام.

فكرة نقل الصور1.rar

تم تعديل بواسطه إنحيلة
رابط هذا التعليق
شارك

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

اما بالنسبة للملف فهذا هو الطلوب تماما جزاك الله خيرا وبارك لك في علمك.

تقبل مني اسمى عبارات الود والتقدير.

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب / حمادة باشا

بارك الله فيك

ودائما تثبت انك مبدع من الطراز الاول

تقبل خالص تحياتي

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب / حمادة باشا

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

 

وائراءا للموضوع

Option Explicit


Private Sub btnadd_Click()
Dim SourceFile As String
Dim DestinationFile As String
Const MyPicFilter = "(*.bmp;*.gif;*.jpg;*.jpeg;*.wmf;*.emf;*.dib;*.ico;*.cur)," & _
    "*.bmp;*.gif;*.jpg;*.jpeg;*.wmf;*.emf;*.dib;*.ico;*.cur"

On Error GoTo ErrLoad
SourceFile = Application.GetOpenFilename(MyPicFilter, , , False)
If SourceFile = "False" Then Exit Sub

DestinationFile = ActiveWorkbook.Path & Mid(SourceFile, InStrRev(SourceFile, CStr(Application.PathSeparator)))
Me.Image1.Picture = LoadPicture(SourceFile)
FileCopy SourceFile, DestinationFile

ErrLoad:
If Err Then
    MsgBox "Error Number := " & Err.Number, vbCritical, "Error Image"
    Err.Clear
Else
    MsgBox "تم نسخ الصورة", vbInformation
End If
End Sub

المرفق 2010

فكرة نقل الصور2.rar

  • Like 1
رابط هذا التعليق
شارك

الاستاذ القدير العلامه الخبير / عبدالله باقشير

انت بحق

 

oVtoo.gif

  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم / الجموعي

بارك اله فيك

بعد اذن الاساتذة الكبار

 

السؤال المطروح إلى أين تم نسخ الصورة

 

الاجابة علي سؤالك .... في نفس الفولدر الموجود به ملف الاكسيل

 

تقبل خالص تحياتي

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information