コードコピーは次のとおりです。
<%@言語= vbscriptcodepage = 936%>
<%
'バッチファイル自動検索挿入ver2.0を交換します
'Feiyun Writing、CSDNアカウント:JSPADMIN、QQ:33323489
'個人のウェブサイトhttp://www.pifoo.com中国のウェブサイト、交換リンクへようこそ。このサイトは、無料のブログアプリケーションと登録を提供します。
「このコードを使用または変更できますが、著作権情報またはリンクを保持してください。使用していただきありがとうございます。
'ご質問や提案がある場合は、メッセージを残してくださいhttp://www.pifoo.com/guestbook/
%>
<%
bakpath = request( "bakpath")
delbak = server.mappath(bakpath)
setFSO = createObject( "Scripting.filesystemObject")
response.write "削除操作の結果は次のとおりです:"& "<br>"
iterate(delbak)
functionterate(パス)
Dimfolder、フォルダー、ファイル、ファイル
setFolder = fso.getFolder(PATH)
setfiles = folder.files
foreachfileinfiles
iffso.getExtExtensionName(file.name)= "bak" then
Response.WriteFile.Name& "が正常に削除されました!<br>"&file.path& "<br> <br>"
file.deletetrue
endif
次
setFolders = folder.subfolders
foreachfinfolders
iteratef.path
次
エンド機能
setfso =何もない
%>
<ahref = "index.asp">ホームページに戻る</a>