<%
c_path="D:\新建文件夹 (3)"
set file_system=createobject("scripting.filesystemobject")
set cur_folder=file_system.getfolder(c_path)
'建立检索目录下的文件对象集合
set sub_files=cur_folder.files
'遍历文件对象集合
i=0
for each each_file in sub_files
i=i+1
name=each_file.name'取文件名
names="[upload=jpg]UploadFile/2008-4qqface/"&name&"[/upload]<br>"
response.write names
next
response.write i
%>
|
