كود للحصول على اسماء الملفات فقط وليس مساراتها

[القنـاص المصرى]

السلام عليكم ورحمة الله وبركاته
بسم الله الرحمن الرحيم
عندى يا اخوة هذا الكود

vids = File.Find(_SourceFolder.."\\AutoPlay\\Videos\\1", "*.mp4", false, false, nil, nil);
for x,y in pairs (vids) do
ListBox.AddItem("ListBox1", y,y);
end
ووظيفته جلب جميع الفيديوهات ذات صيغة ال MP4 داخل الملف 1
وارفاقها فى ال Listbox
ولكن يعطينى اسامى الملفات ومساراتها
مثال
C:\Documents and Settings\ahmed\temp\....video.mp4
اريد انى اضع فى الList Box اسم هذه الملفات دون مسارتها وتكون ال Data الخاصة بها هى المسار
بمعنى ان اول عنصر اسمه يكون Video1.mp4 وقيمته داخل الليست بوكس بها مساره C:\Documents and Settings\ahmed\temp\....video.mp4
وجزاكم الله كل خير

[القنـاص المصرى]

جزاكم الله خيرا تم وضع هذه الداله لعمل هذا الغرض
function get_name(path)
finded = false;
while finded == false do
temp = String.Find(path, "\\", 1, false);
path = String.Mid(path, temp+1, -1);
if temp == -1 then
finded = true;
end
end
return path;
end

[المـهاجر]

جزك الله خيرا على مشاركة الحل
يمكنك إستخدام الأكشن الجاهز String.SplitPath بالأوتوبلاى مباشرة دون الحاجة لدوال إضافية

path = String.SplitPath("C:\\Program Files\\My Product\\MyFile.ext");
Dialog.Message("Notice", path.Filename..path.Extension, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

[عبود عبود]

جزك الله خيرا على مشاركة الحل
يمكنك إستخدام الأكشن الجاهز String.SplitPath بالأوتوبلاى مباشرة دون الحاجة لدوال إضافية

path = String.SplitPath("C:\\Program Files\\My Product\\MyFile.ext");
Dialog.Message("Notice", path.Filename..path.Extension, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);


نعم أخى هذا الحل هو الصحيح أو الأصح :abc_051:

جزاك الله خيرا على المتابعة

[أبو محسن]

جزك الله خيرا على مشاركة الحل
يمكنك إستخدام الأكشن الجاهز string.splitpath بالأوتوبلاى مباشرة دون الحاجة لدوال إضافية

path = string.splitpath("c:\\program files\\my product\\myfile.ext");
dialog.message("notice", path.filename..path.extension, mb_ok, mb_iconinformation, mb_defbutton1);

هل ممكن رفع الأكشن لو تكرمت

[ربيع]

string.splitpath

:abc_152:

[أبو محسن]

string.splitpath

:abc_152:

الله المستعان
والله العتب على النظر يا صديقي http://www.abc4web.net/vb/images/icons/icon7.png

[المـهاجر]

هل ممكن رفع الأكشن لو تكرمت

ليست إضافة
هى أكشن جاهز و متضمن فى جميع إصدارات الأوتوبلاى