بسم الله الرحمن الرحيم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

الكود الموالي لاضافة مجلد في المسار التالي

CD_Root\AutoPlay\Audio

الكود مبين على اساس الدالة

لكن يجعله مجلد داخل مجلد

فيصبح هكذا
مجلد اخر بنفس اسمه داخله\مجلد رئيسي\CD_Root\AutoPlay\Audio

[HTML]brow = Dialog.FolderBrowse(":من فضلك حدد المجلد", _DesktopFolder);
if brow ~= "CANCEL" then
format = {"*.avi", "*.mpg", "*.wmv", "*.mp3"}
for i,type in pairs(format)do
split = String.SplitPath(brow);
source = _SourceFolder.."\\AutoPlay\\Audio\\"..split.Filena me
tbSearsh = File.Find(brow, type, false, false, nil, nil);
if tbSearsh then
for l,load in pairs(tbSearsh)do
Folder.Create(source);
Folder.Create(source.."\\"..split.Filename);
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMessage("جاري النسخ...");
File.Copy(load, source.."\\"..split.Filename.."\\", true, true, false, true, nil);
StatusDlg.Hide();
end

else
local find = Folder.Find(brow.."\\", "*", false, nil);
if find then
for nF, tblFfolder in pairs(find)do
pFName = String.SplitPath(tblFfolder);
Folder.Create(source);
--Folder.Create(source.."\\"..pFName.Filename);
tbSearsh = File.Find(tblFfolder, type, false, false, nil, nil);
if tbSearsh then
for l,load in pairs(tbSearsh)do
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMessage("جاري النسخ...");
File.Copy(load, source.."\\"..pFName.Filename.."\\", true, true, false, true, nil);
StatusDlg.Hide();
end

end
end
end
end
ListBox.DeleteItem("ListBox2", -1);
LoadFolder()
end
end[/HTML]


الكود الثاني من المفترض ان يستعرض المجلدات التي في نفس المسار والمستخدم يحدد المجلد الذي يضيف اليه الملف


[HTML]browse = Dialog.FileBrowse(true, "مكان الملف", _DesktopFolder, "All Files|*.avi;*.mpg;*.wmv;*.mp3|", "", "dat", true, false);

for n, fileType in pairs(browse)do
if browse[1] ~= "CANCEL" then
message = Dialog.Message("حدد مكان نسخ الملف", "عليك نسخ الملفات اولا هل تريد نسخها", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if message == 6 then
bFolder = Dialog.FolderBrowse("من فضلك اختر المجلد", _SourceFolder.."\\AutoPlay\\Audio\\"..ListBox.GetI temText("ListBox1", 1));
if bFolder ~= "CANCEL" then
StatusDlg.Show(MB_ICONNONE, false);
File.Copy( browse[1], bFolder, true, true, false, true, nil);
StatusDlg.Hide();
select = ListBox.GetSelected("ListBox2");
if select then
selectName = ListBox.GetItemText("ListBox2", select[1]);
GetName = String.SplitPath(bFolder);
if GetName.Filename == selectName then
ListBox.DeleteItem("ListBox3", -1);
ListBox.SelectItem("ListBox2", select[1]);
end
end
end
else
Dialog.Message("حاول مرة أخرى", "عذرا لايمكنك فتح الملفات");
end
end
end[/HTML]


كذلك هل ممكن اضافة

زر حذف مجلد
وحذف شريط من مجلد