موفقين بإذن الله ... لكم مني أجمل تحية . 
تويت
استدعاء اسماء المجلدات فقط لـــComboBox
--
result = Folder.Find(_SourceFolder, "*", true, nil);
Debug.ShowWindow(true);
for i,s in pairs(result)do
Debug.Print(s.."\r\n");
end
result = Folder.Find(_SourceFolder, "*", true, nil);
Debug.ShowWindow(true);
for i,s in pairs(result)do
split_folder_path = String.SplitPath(s);
Debug.Print(split_folder_path.Filename.."\r\n");
end
result = folder.find(_sourcefolder, "*", true, nil);
debug.showwindow(true);
for i,s in pairs(result)do
split_folder_path = string.splitpath(s);
debug.print(split_folder_path.filename.."\r\n");
end
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
ComboBox.ResetContent("ComboBox1");
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
ComboBox.ResetContent("ComboBox1");
موفقين بإذن الله ... لكم مني أجمل تحية . 
Audio_Fold = Folder.Find(_SourceFolder.."\\AutoPlay\\Audio\\", "*", false, nil);
Audio_Fold = Folder.Find("AutoPlay\\Audio", "AutoPlay*", false, nil);
_SourceFolder
new_folder = Dialog.Input("new folder ", "Enter the name of the folder", "", MB_ICONQUESTION);
search_TEXT = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, new_folder);
if search_TEXT then
Dialog.Message("Whatch out", "Name not on the list", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
alternative__name = Dialog.Input("another name", "alternative name:", "", MB_ICONQUESTION);
Folder.Create(_SourceFolder .. "\\FUNs\\"..alternative__name);
else
Folder.Create(_SourceFolder .. "\\FUNs\\"..new_folder);
end
تعليق