وظائف ASP لاجتياز الدلائل والملفات في الدلائل - لم أتمكن من العثور على أي منها على الإنترنت، لذلك قمت بتصحيحها باستخدام Emeditor <%@ Language=vbscript %>
<%
'وظيفة لاجتياز الدلائل والملفات ضمن الدلائل
%>
<%
وظيفةبيانلي (المسار)
اضبط Fso=server.createobject(scripting.filesystemobject)
على خطأ استئناف التالي
تعيين Objfolder=fso.getfolder(path)
قم بتعيين Objsubfolders=objfolder.subfolders
لكل Objsubfolder في Objsubfolders
Nowpath=path + / + Objsubfolder.name
الاستجابة.اكتب Nowpath
قم بتعيين Objfiles=objsubfolder.files
لكل Objfile في Objfiles
استجابة.كتابة <br>---
Response.write Objfile.name
التالي
الاستجابة.اكتب <p>
بيانلي (المسار الآن) 'عودي
التالي
تعيين Objfolder = لا شيء
تعيين Objsubfolders = لا شيء
اضبط Fso = لا شيء
وظيفة النهاية
%>
<%
Bianli(D :) 'اجتياز القرص d:
%>