مثال على نقل الملفات

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default مثال على نقل الملفات

مُساهمة من طرف Admin في الخميس أكتوبر 19, 2006 11:23 pm

'طريقة بسيطة لنقل الملفات
' حاول فهم الكود وعدل الكود لتصل الى ما تريده
' لا تنسى هذا المثال يقوم بنقل الملفات النصية فقط من مجلد
' موجود بجانب البرنامج
' اسمه my folder
' الى مجلد جديد اسمه حسب اسم المجلد الذي تضعه في مربع النص
Private Sub Command1_Click()
On Error Resume Next
Dim na As String
If Len(Text1.Text) = 0 Then
MsgBox " ادخل اسم المجلد"
Else
FileSystem.MkDir App.Path & "\" & Text1.Text
For i = 0 To File1.ListCount - 1
na = Mid(File1.List(i), 1, Len(File1.List(i)) - 3)
na = na & "jad"
FileSystem.FileCopy App.Path & "\my folder\" & File1.List(i), App.Path & "\" & Text1.Text & "\" & na
Next i
End If
End Sub

Private Sub Command2_Click()
MsgBox File1.List(1)
End Sub

Private Sub Form_Load()
File1.Path = App.Path & "\my folder"
Command1.Caption = "نقل الملفات"
End Sub

Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: مثال على نقل الملفات

مُساهمة من طرف فيجوال بيسك 6 في الأربعاء أكتوبر 25, 2006 7:57 pm

جميل ما قمت به من شرح

تحياتي

فيجوال بيسك 6
مراقب عام
مراقب عام

عدد الرسائل : 17
تاريخ التسجيل : 22/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: مثال على نقل الملفات

مُساهمة من طرف bigboss_quraan في الأربعاء أكتوبر 25, 2006 7:58 pm

شكرا


الكود حلو كثير

شكرا

_________________





bigboss_quraan
مشرف عام
مشرف عام

عدد الرسائل : 136
العمر : 25
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى