[mazen]

انا عندي مجموعة فولدرات وسبق ان سالت وجاوبني احد الاعضاء عن تغير اسماء مجموعة من الفولدرات والان اريد

يتم تغير اسماء الفولدرات بناء علي الاتي

ليست بوكس بة 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 فولدر وعند الضغط علي ليست بوكس الاسماء العشوائية ارجاع الاسم الاصلي داخل برنامجي فقط وليس للفولدر اي يصبح الفولدر باسم وهي علي الكمبيوتر ولكن بالبرنامج يظهر الاسم الحقيقي

[SUB NEW]

PHP كود :

Dim OldFolderName As String

Dim NewFolderName As String 


PHP كود :

OldFolderName = "C:\Folder"

NewFolderName = "NewFolderName" 


PHP كود :

FileIO.FileSystem.RenameDirectory(OldFolderName, NewFolderName) 


[mazen]

مشكور جدا علي الاهتمام ولكن اريد حلقة تكرارية لنقل الملفات

[3booody]

اخي ياريت توضح بشكل مختصر وافضل لان مشاركتك طويلة وما فهمت الفكرة منها