نسخ الصور الى ملف محدد

[aaabade]

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

فهل هناك فكرة لجعل البرنامج يقوم باخذ نسخة من الصور بعد ادراجها ووضعها في ملف بجانب البرنامج.

test.rar

[محمد أبوعبدالله]

تفضل اخي الكريم

        With Application.FileDialog(3)
            .Title = "Choose File"
            .Filters.Clear
              .Filters.Add "Pic Files", "*.jpg ; *.bmp"
            .AllowMultiSelect = False
            .InitialFileName = ""
         If .Show = -1 Then
           IMG = .SelectedItems(1)

        Dim varFile As Variant
        For Each varFile In .SelectedItems
               Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, "."))
               FileCopy varFile, Me.IMG
         Next
         End If
         End With

test.rar

تحياتي

[aaabade]

12 دقائق مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

        With Application.FileDialog(3)
            .Title = "Choose File"
            .Filters.Clear
              .Filters.Add "Pic Files", "*.jpg ; *.bmp"
            .AllowMultiSelect = False
            .InitialFileName = ""
         If .Show = -1 Then
           IMG = .SelectedItems(1)

        Dim varFile As Variant
        For Each varFile In .SelectedItems
               Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, "."))
               FileCopy varFile, Me.IMG
         Next
         End If
         End With

test.rar 47.69 kB · 0 تنزيلات

تحياتي

مشالله عليك استاذ محمد

مبدع وشغل معلمين الله يعطيك العافية

اشكرك

[محمد أبوعبدالله]

بالتوفيق اخي الكريم

وبارك الله فيك

تحياتي

[حربي العنزي]

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

بعد اذن صاحب الموضوع الله يحفظه يارب 

استاذ محمد ابو عبدالله  الله يحفظك ويحميك من كل شر يارب هل بالامكان شرح الكود سطر سطر 

لكي نتعلم ونستفيد الله يبارك في جهودك يا طيب 

تحياتي لصاحب الموضوع 

[محمد أبوعبدالله]

5 ساعات مضت, حربي العنزي said:

استاذ محمد ابو عبدالله  الله يحفظك ويحميك من كل شر يارب هل بالامكان شرح الكود سطر سطر 

الكود التالي لفتح مربع حوار لاستعراض مكان الصورة مع عمل فلتر بانواع الملفات المطلوب اظهارها

        With Application.FileDialog(3)
            .Title = "Choose File"
            .Filters.Clear
              .Filters.Add "Pic Files", "*.jpg ; *.bmp"
            .AllowMultiSelect = False
            .InitialFileName = ""
         If .Show = -1 Then

حقل الصورة = مسار ةاسم الملف المجدد

           IMG = .SelectedItems(1)

نسخ الملف الى المجلد الذي بجوار البرنامج وتحديد اسم جديد له

        Dim varFile As Variant
        For Each varFile In .SelectedItems
               Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, "."))
               FileCopy varFile, Me.IMG

تحياتي

[حربي العنزي]

 Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, "."))

استاذي الفاضل الله يبارك فيك ويحفظك وكل عام وانت بألف خير وصحة وسلامة يارب 

اي ان :

Me.IMG  = حقل بالجدول

image = المجلد الي بجوار البرنامج

Me.SER = ماذا يمثل

[محمد أبوعبدالله]

Me.SER = يمثل حقل موجود في الجدول وهو ترقيم تلقائي يستخدمه صاحب الموضوع ككود للسجل

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

تحياتي

[حربي العنزي]

استاذ محمد الغالي الله لايحرمنا من شخصك الكريم والطيب يا طيب ممنون منك جزاك الله خيرا