Fungsi ASP untuk melintasi direktori dan file dalam direktori - Saya tidak dapat menemukannya di Internet, jadi saya memperbaikinya menggunakan Emeditor <%@ Language=vbscript %>
<%
'Berfungsi untuk melintasi direktori dan file di bawah direktori
%>
<%
FungsiBianli(jalur)
Setel Fso=server.createobject(scripting.filesystemobject)
Pada Kesalahan Lanjutkan Berikutnya
Setel Objfolder=fso.getfolder(jalur)
Setel Objsubfolder=objfolder.subfolder
Untuk Setiap Subfolder Obj Di Subfolder Obj
Nowpath=jalur + / + Objsubfolder.nama
Respon.tulis Nowpath
Setel Objfiles=objsubfolder.files
Untuk Setiap Objfile Di Objfiles
Respon.tulis <br>---
Respon.tulis Objfile.nama
Berikutnya
Respon.tulis <p>
Bianli (jalur sekarang) bersifat rekursif
Berikutnya
Setel Objfolder=tidak ada
Setel Objsubfolder=tidak ada
Tetapkan Fso=tidak ada
Fungsi Akhir
%>
<%
Bianli(D:) 'Melintasi d: disk
%>