كود نسخ الملفات من فهرس " مجلد " الى آخر
صفحة 1 من اصل 1
كود نسخ الملفات من فهرس " مجلد " الى آخر
كود نسخ ملفات من فهرس( مجلد ) الى آخر
لاحظ :
1- تم وضع الكود فى Function ويجب تحديد الفهرس المراد النسخ منه والفهرس
المراد النسخ له وقمنا بافتراض ان المستخدم سيكتبهم فى textbox ولكن يمكنك تغيير ذلك باى اسلوب
تراه مناسبا.
2- سيتحقق الكود من ان
كلا الفهرسين ينتهيان بالعلامة \ واذا لم يكونا
كذلك سيتم اضافتهما الى اسم الفهارس.
3- فى حالة الفهرس
المنسوخ له غير موجود سيتم انشاؤة .
4- اذا كان الفهرس
المنسوخ له موجود فعلا وبه نفس الملفات ، ماذا سيحدث ؟
جرب الكود بنفسك لتعرف
ماذا سيحدث
لاحظ :
1- تم وضع الكود فى Function ويجب تحديد الفهرس المراد النسخ منه والفهرس
المراد النسخ له وقمنا بافتراض ان المستخدم سيكتبهم فى textbox ولكن يمكنك تغيير ذلك باى اسلوب
تراه مناسبا.
2- سيتحقق الكود من ان
كلا الفهرسين ينتهيان بالعلامة \ واذا لم يكونا
كذلك سيتم اضافتهما الى اسم الفهارس.
3- فى حالة الفهرس
المنسوخ له غير موجود سيتم انشاؤة .
4- اذا كان الفهرس
المنسوخ له موجود فعلا وبه نفس الملفات ، ماذا سيحدث ؟
جرب الكود بنفسك لتعرف
ماذا سيحدث
- الكود:
Public Function Copy_Files_Folder(ByRef strFrom_Path As String, ByRef strTo_Path As String)
'Copy all the files in a directory to another'
Dim FSO As FileSystemObject
Dim strFile As String 'Used to store the files that are found
On Error GoTo err_hndl
'Simple check if
the path is correct it hase to end with "" else is added
If Right$(strFrom_Path, 1) <> "\" Then strFrom_Path = strFrom_Path & "\"
If Right$(strTo_Path, 1) <> "\" Then strTo_Path = strTo_Path & "\"
'find the files with the extension as *.* for all files in the current path
strFile = Dir(strFrom_Path & "*.*")
'list all the file till dir return empty string
Do While Len(strFile)
Set FSO = New
FileSystemObject
With FSO
'check if the new folder exist if not create new one
If Not .FolderExists(strTo_Path) Then .CreateFolder (strTo_Path)
.CopyFile strFrom_Path & strFile, strTo_Path & strFile 'copy the files in the new directory
End With
Set FSO = Nothing
strFile = Dir 'send the next file to variable File
Loop
Exit Function
err_hndl:
MsgBox "Error in Copy_Files_Folder()" & vbCrLf & Err.Number & ": " & Err.Description, vbCritical
End Function
Private Sub Command1_Click()
'test button click
Call Copy_Files_Folder(txtForm_Path.Text, txtTo_Path.Text)
End Sub
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الأربعاء فبراير 25, 2015 3:16 pm من طرف فطوط نونو
» مضاد فيرس مجاني من ميكروسوفت New Antivirus From Microsoft - Free
السبت مايو 10, 2014 3:24 am من طرف ابراهيم الشيخ1
» كيفية تثبيت Windows XP بعد تثبيت Windows7
السبت أبريل 12, 2014 5:49 pm من طرف tareqsat
» النسخة الاصلية لكتاب الف ليلة وليلة الممنوع ( للكبار فقط )
الخميس مارس 13, 2014 12:44 am من طرف blawtn.Heart
» http://ahlakalam.to-relax.net/t476-topic
الثلاثاء مارس 04, 2014 1:12 am من طرف myemam
» كتاب نادر - اعترافات جولدامائير واسرار لم تنشر عن حرب اكتوبر
الجمعة فبراير 28, 2014 6:07 pm من طرف ahmdsalem
» الكتاب الاسود - قصة تعذيب المسلمين فى عهد حسنى مبارك
الجمعة فبراير 28, 2014 5:55 pm من طرف ahmdsalem
» الكتاب النادر اول حوار صحفى مع جنى مسلم
الجمعة فبراير 28, 2014 5:54 pm من طرف ahmdsalem
» كتاب نهاية اسرائيل والولايات المتحدة الامريكية
الجمعة فبراير 28, 2014 5:51 pm من طرف ahmdsalem
» كتاب ( الحلم اليهودى والوهم الماسونى )
الجمعة فبراير 28, 2014 5:48 pm من طرف ahmdsalem
» Internet Download Manager 6.05 Build 2 Final
الأربعاء فبراير 26, 2014 3:53 pm من طرف JAMALSAEED
» مجموعه كتب رائعة - متنوعة
الثلاثاء أكتوبر 15, 2013 2:16 pm من طرف eng_eyad
» فن الالقاء الرائع للدكتور طارق سويدان
الثلاثاء أكتوبر 15, 2013 2:12 pm من طرف eng_eyad
» شرح بالصور لكيفية صنع نسخة ويندوز خاصة بك واضافه البرامج والتعريفات لها
الجمعة سبتمبر 13, 2013 3:48 pm من طرف كوبرا
» تحويل الملفات الى PDF بدون برامج
الخميس سبتمبر 12, 2013 2:32 am من طرف عيسى101
» Hiren's BootCD 13.1
الأحد سبتمبر 01, 2013 2:58 pm من طرف تركي غانم
» نزهة الألباب فيما لا يوجد فى كتاب - من كتب الثقافة الجنسية العربية
الجمعة مايو 24, 2013 5:54 am من طرف sadeem.alcoon
» شقائق الاترج فى رقائق الغنج - من كتب الثقافة الجنسية العربية النادرة
الجمعة مايو 24, 2013 5:07 am من طرف sadeem.alcoon
» الحرام - مغامرات حقيقية لأميرة سعودية
الخميس مايو 09, 2013 5:32 am من طرف عمر صالح
» عملية ذبح نمر وسلخ جلدة- حصرية ونادرة جداجداجدا
الخميس مايو 09, 2013 5:27 am من طرف عمر صالح