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

[انحيلة]

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

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

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

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

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

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

تم تعديل فبراير 23, 2014 بواسطه إنحيلة

[حمادة باشا]

الأخ الكريم/ إنحيلة

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

تم إختصار الأزرار وتغيير الكود - تقبل تحياتي

 

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

[انحيلة]

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

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

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

[حمادة عمر]

السلام عليكم

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

بارك الله فيك

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

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

[عبدالله باقشير]

السلام عليكم

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

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

 

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

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

[حمادة عمر]

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

انت بحق

 

[حمادة باشا]

الأخ الكريم/ إنحيلة

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

جزاكم الله خيرا علي الدعاء الطيب ولك مثله بإذن الله

تقبل تحياتي

[حمادة باشا]

الأخ الحبيب/ حمادة عمر

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

أشكركم علي الكلام الطيب - بل حضرتكم المبدع

تقبل تحياتي

[حمادة باشا]

أستاذنا الكبير/ عبدالله باقشير

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

كود ولا اروع - وكالعادة

تقبل تحياتي

[انحيلة]

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

[رجب جاويش]

أستاذى الحبيب / عبد الله باقشير

سلمت يداك

وحفظك الله لنا مبدعا

[الجموعي]

ماشاء الله

مبدع حفظك الله

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

تم تعديل فبراير 24, 2014 بواسطه الجموعي

[حمادة عمر]

السلام عليكم

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

بارك اله فيك

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

 

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

 

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

 

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

[مجدى يونس]

الاخ حماده باشا

والاخ عبد الله بقشير

عمل ممتاز جذاكم الله خير

[عبد الرحمن شفيق]

 

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

انت بحق

 

 

 

<>