sub deletefile(path,id)
dim fs, folder,filename,i
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
for each item in folder.Files
filename = MapURL(item.path)
if left(filename,len(id))=id then fs.DeleteFile filename ,True
delfilestr=delfilestr&filename&"<br>"
i=i+1
next
Response.Write("共删除了"&i&"个文件<br>以下是删除的文件列表:<br>"&delfilestr)
end sub
试一下,path为路径,id为要删除的用户id。
path="1.dat"
set fso=server.CreateObject("scripting.filesystemobject")
path=server.mappath(path)
set objFolder=fso.GetFolder(path)'创建文件夹对象
set objFiles=objFolder.Files
for each objFile in objFiles
if lcase(right(objFile.name,3))="dat" and instr(objFile.name,id)>0 then
fso.deletefile(objFile)
end if
next
set objFolder=nothing
set fso=nothing
列出全部dat文件,然后判断是否含有ID,如果含有ID就删除,不知道这是不是你想要的!