日期:2014-05-17  浏览次数:20715 次

ASP中关于搜索文件的问题
能否用ASP搜索一个文件夹下的任何类型的图片,并把所有搜索的图片按顺序修改名称,给个思路吧。。小弟谢过了。

------解决方案--------------------
修改文件名
<%
Dim fso,f
Set fso = CreateObject( "Scripting.FileSystemObject ")
Set f = fso.GetFile(server.mappath( "tupian.jpg "))
f.name= "图片.jpg "
Set f=Nothing
Set fso=Nothing
%>
遍历指定文件夹下所有文件名

<%
Set conn = Server.CreateObject( "ADODB.Connection ")
conn.Open dsource,duser,dpassword
function bianli(path)
set fso=server.CreateObject( "scripting.filesystemobject ")

on error resume next
set objFolder=fso.GetFolder(path)

set objSubFolders=objFolder.Subfolders

for each objSubFolder in objSubFolders

nowpath=path + "\ " + objSubFolder.name

Response.Write nowpath