نقل ملفات من مكان الى مكان نموذج مستمر

[محمد احمد لطفى]

كيف يمكن نقل ملفات من مكان الى مكان نموذج مستمر

 

Photo.rar

[Moosak]

12 ساعات مضت, محمد احمد لطفى said:

كيف يمكن نقل ملفات من مكان الى مكان نموذج مستمر

 

Photo.rar 483.26 kB · 8 downloads

بخلت علينا أوي بالشرح أستاذ محمد @محمد احمد لطفى 😅

يحتاج نجيب عراف ولا مشعوذ يخبرنا أنت عايز أيه بالضبط ؟! 😂

[محمد احمد لطفى]

بمساعدة أستاذى @ابو جودي تم معرفة الملف موجود 

أريد من خلال نموذج copyx نقل الملفات الموجودة الى مكان أخر 

[Moosak]

طيب يا غالي ...

جرب هذي الدالة :

Public Function CopyFile(CopyFrom As String, CopyTo As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile CopyFrom, CopyTo, True
Set fs = Nothing
End Function

ولاستخدامها بهذي الطريقة :

CopyFile("CopyFrom", "CopyTo")

 

تم تعديل يوليو 4, 2022 بواسطه Moosak

[محمد احمد لطفى]

أستاذى @Moosak

كده مش هافهم أو مش هاعرف 

يعنى مثلا نقل ملف احمد من 1 الى 2           
1 - cut
2 - paste

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

[Moosak]

أستاذ محمد ..

إنت عايز تنقل مجلد  بالملفات اللي داخله ؟ 

ولا عايز تنقل ملف واحد بس ؟ 

 

تم تعديل يوليو 4, 2022 بواسطه Moosak

[محمد احمد لطفى]

ايوه فولدر احمد كامل

تم تعديل يوليو 4, 2022 بواسطه محمد احمد لطفى

[Eng.Qassim]

13 ساعات مضت, Moosak said:

حتاج نجيب عراف ولا مشعوذ يخبرنا أنت عايز أيه بالضبط

🤣😂🤣

ادك على راسي ... دك عيني دك !!

بصراحة استاذي العزيز @محمد احمد لطفى... احيانا نحتاج لمشعوذين او بالسوري (بصارة ) .. او بالمصري (جماعة الودع )حتى نفك رموز السؤال

[محمد احمد لطفى]

شرحت فوق شوية

عاوز انقل فولد ( مجلد )  من مكان الى مكان 

تم تعديل يوليو 4, 2022 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

فى الملف المرفق بنقل الصور 

أريد نقل فولد ( مجلد )
 

Photo.rar

[Moosak]

جرب الآن أخي محمد .. 🙂 

أحس أن هناك شي غير طبيعي في الموضوع 😁

غيرت عدة أشياء في الاستعلام لحد ما ضبطت الأمور ..

زر النقل الأول لنقل الصورة فقط

زر النقل الثاني ينقل المجلد ..

 

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

لا يزال لم تتضح لي الحكمة من هذا الطلب .. 😏

 

Photo.rar

[محمد احمد لطفى]

جزاك الله خيراً أستاذى @Moosak

تبقى شيء واحد أنه ينسخ أريد نقل 
بحيث الفولدر الاصلى يبقى غير موجود فى مكانه 

Cut TO Paste

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

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

[Moosak]

28 دقائق مضت, محمد احمد لطفى said:

تبقى شيء واحد أنه ينسخ أريد نقل 
بحيث الفولدر الاصلى يبقى غير موجود فى مكانه 

Cut TO Paste

العفو أخي محمد 🙂 

لحذف الملف بعد نقله عدل أكواد الزرين للتالي :

Private Sub CopyBtn_Click()
'On Error Resume Next
CopyFile Me.PicFile, Me.jjj
DleteFile Me.jjj
MsgBox "تم النقل بنجاح"
End Sub

Private Sub FolderCopyBtn_Click()
'On Error Resume Next
CopyFolder Me.FolderFrom, Me.FolderTo
DleteFolder Me.FolderTo
MsgBox "تم النقل بنجاح"
End Sub

وأضف هاتين الدالتين للموديول FileFoldeCopyMod

Public Function DleteFolder(FolderPath As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFolder FolderPath, True
Set fs = Nothing
End Function

Public Function DleteFile(FilePath As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile FilePath, True
Set fs = Nothing
End Function

 

تم تعديل يوليو 5, 2022 بواسطه Moosak

[محمد احمد لطفى]

شكرأ أستاذى @Moosak

كنت عاوزها cut 

علشان لو فيه ملفات كبيرة تتنقل بسرعة فى نفس المكان

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

[محمد احمد لطفى]

تم الحل 

 

Photo.rar