بسم الله الرحمن الرحيم
هذا الكود او المعادلة عمله عرض جميع الملفات الموجودة في مجلد معين...وهي مكتوبة بال VB Script
Function ShowFileList(folderspec)
Dim fso, f, f1, fc, s
’هذا الكائن مسؤل عن التعامل مع الملفات
Set fso = CreateObject("Scripting.FileSystemObject")
’ناخذ عدد الملفات الموجودة
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s &"f1.name"
Next
ShowFileList = s
End Function
وهذا الكود يستدعي الـ Function السابقة وهو كمثال عن طريقة الاستخدام
’متغيرين لتحديد موقع المجلد ولاخذ اسم الملفات
dim MyPath,MyName
'تحديد اسم المجلد
MyPath = Server.MapPath("AboTurky")
'استدعاء الـ function السلبقة لعرض الملفات داخل المجلد المحدد
Myname = ShowFileList(MyPath) %>امل ان يفيدكم
