نقل ملف

[خالد الشاعر]

السادة الخبراء

 

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

 

ولكم جزيل الشكر

 

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

تم تعديل سبتمبر 28, 2013 بواسطه خالد الشاعر

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

السلام عليكم

 

جرب الكود التالي

Sub kh_Move()
Dim oldName As String, newName As String
oldName = "c\zzz\vv.xls" '  اسم الملف مع المسار
newName = "c\mmm\vv.xls" '  اسم الملف مع المسار
Name oldName As newName
End Sub

تحياتي

[خالد الشاعر]

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

 

 يعجز لساني عن الشكر لكم

 

هل لى بطلب صغير لو سمحت

 

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

 

مثال لا يكون c:    يكون  "/"  فى نفس موقع الملف

 

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

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

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

 

 يعجز لساني عن الشكر لكم

 

هل لى بطلب صغير لو سمحت

 

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

 

مثال لا يكون c:    يكون  "/"  فى نفس موقع الملف

 

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

 

تفضل

Sub kh_Move()
Dim mPath As String
Dim oldName As String, newName As String
mPath = ThisWorkbook.Path & "\"
oldName = mPath & "zzz\vv.xls"
newName = mPath & "mmm\vv.xls"
Name oldName As newName
End Sub

تحياتي

[خالد الشاعر]

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

 

ليس جديد عليكم هذا الابداع

 

تسلم ايديك و جزاكم الله كل خير

 

ولو سمحت لى لو عايز يعمل نسخ فقط وليس نقل

 

ممكن الكود يوجد هكذا

 

FileCopy oldName, newName

 

ولك جزيل الشكر

تم تعديل سبتمبر 29, 2013 بواسطه خالد الشاعر

[حمادة عمر]

السلام عليكم

الاخ الكريم / خالد الشاعر

بارك الله فيك

بالطبع بعد الابداع المنقطع النظير دوما من العلامة الخبير / عبدالله باقشير ... جزاه الله عنا خيرا

لا يوجد اي ردود بالتأكيد تساويها في اي شئ

وبخصوص الاستفسار الاخير ... وبعد اذن استاذي القدير / خبور ... وعلي حسب علمي المتواضع جدا

يمكنك اخي ذلك كما ذكرت وذلك بوضع السطر

FileCopy oldName, newName

بدلا من السطر ....

Name oldName As newName

ولكم مني ارق التحيات

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

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

السلام عليكم

 

احسنت اخي حمادة عمر .......حفظكم الله وجزاكم خيرا

تقبلوا تحياتي وشكري

[خالد الشاعر]

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

 

جربت تعديل الملف لنسخ لم يعمل معى فما المشكلة

 

Sub kh_Copy2()
Dim mPath As String
Dim oldName As String, newName As String
mPath = ThisWorkbook.Path & "\"
oldName = mPath & "11\ff.xls"
'newName = mPath
FileCopy oldName, mPath
End Sub

 

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

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

السلام عليكم

 

هكذا يكون الكود

Sub kh_Copy2()
Dim mPath As String
Dim oldName As String, newName As String
mPath = ThisWorkbook.Path & "\"
oldName = mPath & "TEST\vv.xls"
newName = mPath & "mmm\vv.xls"
FileCopy oldName, newName
End Sub

تحياني

[خالد الشاعر]

تسلم ايدك استاذ عبد الله

 

السؤال هو اذا كنت اريد نسخ اكثر من ملف فى نفس الفولدر

 

هل يجب تكرر امر 

oldName = mPath & "TEST\vv.xls"
newName = mPath & "mmm\vv.xls"
 

باسماء الملفات الاخرى ام ممكن استخدام مثال *.xls

 

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

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

تحتاج الدوارة

for  next

[خالد الشاعر]

استاذى القدير

 

ممكن مثال على ذلك نحن ماذلنا نتعلم منك

 

جزاكم الله كل شكر

[ايهاب سعيد]

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

[الـعيدروس]

السلام عليكم

 

بعد اذن الاستاذ عبدالله

الحلقة التكراريه بتكون كالتالي

Sub kh_Copy2()
'*****    أسماء الملفات *****
 Ar_A "a1,a2,a3,a4,a5,a6"
End Sub
Public Function Ar_A(Par As Variant) As String
Dim mPath$, oldName$, newName$
Dim i, A
mPath = ThisWorkbook.Path & "\"
A = Split(Par, ",")
For i = 0 To UBound(A)
  oldName = mPath & "TEST" & "\" & A(i) & ".xls"
  newName = mPath & "mmm" & "\" & A(i) & ".xls"
  FileCopy oldName, newName
Next i
End Function