04-08-13, 04:43 PM
انا عندي مجموعة فولدرات وسبق ان سالت وجاوبني احد الاعضاء عن تغير اسماء مجموعة من الفولدرات والان اريد
يتم تغير اسماء الفولدرات بناء علي الاتي
ليست بوكس بة 100 اسم عشوائي مقابل ليست بوكس بفولدرات تنقل باليست بوكس من جهازي
يتم نقل الاسماء وفقا لترتيب 100 اسم العشوائي باليست بوكس يعني 100 منهم مثلا a,b,c,d,f تصبح هذة الاسماء اسماء الفولدرات 100 يوزع عليهم من اول فولدر الي الاخير
في المقابل عند الضغط علي اليست بوكس العشوائي الذي سبق وغير اسماء الفولدرات منة عند الضغط علي اسم فولدر مثلا a وكان اسمة exel2005
عند الضغط علي a يكتب exel2005 وهكذا لباقي 100 فولدر
استخدمت الكود الاتي لاحضار كل الفولدرات باليست بوكس الخاص بالفولدرات
For Each Dir As String In Directory.GetDirectories("H:\2010")
ListBox1.Items.Add(IO.Path.GetFileName(Dir))
Next
واستخدمت دالة الايجاد الارقام العشوائية بدون تكرار واستخرجت 100 اسم منهم ل 100 فولدر
الان يقصني نقل 100 اسم عشوائي وتوزيعهم ل 100 فولدر وعند الضغط علي ليست بوكس الاسماء العشوائية ارجاع الاسم الاصلي داخل برنامجي فقط وليس للفولدر اي يصبح الفولدر باسم وهي علي الكمبيوتر ولكن بالبرنامج يظهر الاسم الحقيقي
يتم تغير اسماء الفولدرات بناء علي الاتي
ليست بوكس بة 100 اسم عشوائي مقابل ليست بوكس بفولدرات تنقل باليست بوكس من جهازي
يتم نقل الاسماء وفقا لترتيب 100 اسم العشوائي باليست بوكس يعني 100 منهم مثلا a,b,c,d,f تصبح هذة الاسماء اسماء الفولدرات 100 يوزع عليهم من اول فولدر الي الاخير
في المقابل عند الضغط علي اليست بوكس العشوائي الذي سبق وغير اسماء الفولدرات منة عند الضغط علي اسم فولدر مثلا a وكان اسمة exel2005
عند الضغط علي a يكتب exel2005 وهكذا لباقي 100 فولدر
استخدمت الكود الاتي لاحضار كل الفولدرات باليست بوكس الخاص بالفولدرات
For Each Dir As String In Directory.GetDirectories("H:\2010")
ListBox1.Items.Add(IO.Path.GetFileName(Dir))
Next
واستخدمت دالة الايجاد الارقام العشوائية بدون تكرار واستخرجت 100 اسم منهم ل 100 فولدر
الان يقصني نقل 100 اسم عشوائي وتوزيعهم ل 100 فولدر وعند الضغط علي ليست بوكس الاسماء العشوائية ارجاع الاسم الاصلي داخل برنامجي فقط وليس للفولدر اي يصبح الفولدر باسم وهي علي الكمبيوتر ولكن بالبرنامج يظهر الاسم الحقيقي