بعض الاستخدامات على file system object؟

السلام عليكم

المثال التالي يوضح كيف يتم فتح ملف والقراءة منه، وعرض محتوياته على الشاشة:

<%
    page_to_read="view_source.asp"
    set fso = createobject("scripting.filesystemobject")
    set act = fso.opentextfile(server.mappath(page_to_read))
    read_text = act.readall
    act.close
    Response.Write  "<pre>" & server.htmlencode(read_text) & "</pre>"
%>

المتغير page_to_read يحتوي على اسم الصفحة التي سوف نقوم بعرض محتوياته على الصفحة

 page_to_read="view_source.asp"

الخاصية opentextfile هي احدى خصائص file system object حيث سوف تقوم بفتح الملف الذي سوف نحدد مساره كالتالي:

 set act = fso.opentextfile(server.mappath(page_to_read))

هنا سوف يتم قراءة الملف وتخزينه داخل المتغير read_text كالتالي:

read_text = act.readall

هنا سوف يتم طباعة محتى الصفحة ، وسوف يتم تشفير الكود ، لأنه الصفحة قد تحتوي على لغات برمجية، فيجب أن يتم تشفيرها لكي تظهر:

server.htmlencode(read_text)

وان شاءلله في المشاركات القادمة سوف أضع المزيد من الأمثلة على الكائن file system object

مع تحياتي

السلام عليكم

سوف أقوم بكتابة بعض الأمثلة السريعة.

المثال يقوم بنسخ ملف أو عدة ملفات من مجلد إلى مجلد آخر:

<%
dim fs
set fs=server.createobject("scripting.filesystemobject")
fs.copyfile "c:\mydocuments\web\*.htm","c:\webpages\"
fs.copyfile "c:\mydocuments\web\test.asp","c:\webpages\"
set fs=nothing
%>

المثال التالي يقوم بنسخ المجلدات من مكان إلى مكان آخر:

<%
dim fs
set fs=server.createobject("scripting.filesystemobject")
fs.copyfolder "c:\mydocuments\web\*","c:\webpages\"
set fs=nothing
%>

المثال التالي يوضح كيفية إنشاء مجلد:

<%
dim fs,f
set fs=server.createobject("scripting.filesystemobject")
 set f = fs.createfolder ("c:\arabteam2000")
set fs=nothing
 set f=nothing
%>

كيفية إنشاء ملف والكتابة بداخله:

<%
dim fs,t
set fs=server.createobject("scripting.filesystemobject")
set t=fs.createtextfile ("c:\somefile.txt",true )
t.writeline("مرحباُ بكم في منتديات الفريق العربي للبرمجة")
t.close
set t=nothing
set fs=nothing
%>

هذه بعض الأمثلة على استخدامه.

وان شاءلله اليوم سوف أضع المزيد من التطبيقات والأمثلة، لأن دروس ال file system object جداً مهمة.

وان شاءلله بعد أن أقوم بتلخيص لها لكم.

سوف نقوم جميعاً معاً بإنشاء محرك بحث يعمل مثل جوجل، ولكن يقوم بالحث بداخل السيرفر نفسه.

مع تحياتي

بالمناسبه كائن file system object يمكنك إستخدامه فى ال visual basic 6 ال wsh بدون تغيير الكود الذى كتبته فى ال asp

السلام عليكم

وتستطيع أيضاً يا اخ طارق استخدام object orrinted للفيجول بيسك 6 مع ال asp فهي تدعمها بكل سهولة، وأيضاً دلفي 5 .

مع تحياتي