الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

نسخ ملفات من مجلد إلى مجلد أخر

مغلق
بدأه محمد الفياض في 5 ديسمبر 2000 · 4 رد · 1,219 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كيف يمكن نسخ ملفات من مجلد إلى مجلد أخر وهل بمكن ذلك بدون أستخدام API

===========

ملاحضة أريد أن أنسخ ملفات عديدة وليس ملف واحد

#2

يمكنك ذلك بدون API ولكن يجب عليك أن تضيف مرجع أسمة

Microsoft Scripting Runtime

ثم بعد ذلك أن تستخدم مجموعة كبيرة من ألأوامر منها

Dim Fso as New FileSystemObject
'لنسخ دليل كامل أكتب الاتى
fso.CopyFolder "A:Data", App.Path, True
'حيث "A:Data" هو الدليل المراد نسخ جميع ملفاته
'ِApp.Path هو الدليل الذى ترغب فى نسخ الملفات إليه
'True تخبر ألامر أنه إذا وجد ملف يحمل نفس أسم الملف المراد
' نسخة فيقوم بالكتابة فوقه

وغير هذا الامر كثير يمكنك ألإطلاع

عليها من خلال Object Browser

اللهم أغفر لنا ولوالدينا ومعلمينا وأساتذتنا ومشايخنا وكل من له فضل علينا

#3

شكراً لك أخي رمضان وأتمنى لهذا المنتدى كل خير وشكراً مرة أخرى على هذا التجاوب السريع

#4

يمكن حل الموضوع مباشرة من vb بالمثال التالي المقتبس عن MSDN:

Dim SourceFile, DestinationFile
SourceFile = "SRCFILE" 
DestinationFile = "DESTFILE"
FileCopy SourceFile, DestinationFile

[عدلت بواسطة محمد عبد الودود مرعشي ت:05-12-2000 س: 11:14 PM]

#5

Private Sub CMDBAK_Click()

SOURCE = "D:husAig.bmp"

dESTN = "D:BACKUPSITRAWIAIG.BMp"

FileCopy SOURCE, dESTN

End Sub

;)

هذا الموضوع مغلق.

مواضيع مشابهة