asp071.html 三流君ASP:FileSystemObjectの.DeleteFileでファイル削除

元の三流解説は、
三流君ASP:FileSystemObjectの.DeleteFileでファイル削除
↑を見て、笑ってやってください。
ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です)
※古くさいコードが多いです・・・

ソースコード

<%@LANGUAGE=VBScript%>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>FileSystemObject .DeleteFile(ファイル名を削除する)</title>
</head>
<body>
<h2>FileSystemObject .DeleteFile(ファイル名を削除する)</h2>
<b>FileSystemObjectの.DeleteFile</b>を使用して、ファイルを削除してみます<br>
<br>
.DeleteFile(削除するパスとファイル名)を使用すると、<br>
ファイルを削除することができます。<br>
※*.tmp を削除したので、下記の実行結果とソースを見てください。<br>
<hr>
<%
  '*1 FileSystemObjectを生成します、、って英文、そのままジャン。
  Set objFS = Server.CreateObject("Scripting.FileSystemObject")

  '現在のフォルダーから相対位置のworkディレクトリの名称を取り出す
  strFDIRNAME = Server.MapPath("work/") 'フォルダー名取得

  '*2 .DeleteFileを使用して、ファイルを削除する
  objFS.DeleteFile(strFDIRNAME & "\*.tmp")   '*.tmpを削除する
  Response.Write strFDIRNAME & "\*.tmp を削除しました<br>"

  '確認でファイルリストの表示.GetFolderで取得後、一覧表示
  Response.Write strFDIRNAME & "のファイル一覧です<br>" & vbCRLF
  Set objDIR = objFS.GetFolder(strFDIRNAME)

  '.Filesコレクションにアクセスする
  For Each objFILE In objDIR.Files
    strFNAME = objFILE.Name  '取り出したobjFILEの.Nameを取得
    If strFNAME = strTEMPNAME Then Response.Write "<b>"
    Response.Write "<a href='work/" & strFNAME & "'>"
    Response.Write strFNAME & "</a>" & vbTab
    'おまけで更新日の表示
    Response.Write objFILE.DateLastModified & "<br>" & vbCRLF
    If strFNAME = strTEMPNAME Then Response.Write "</b>"
  Next

%>
<hr>
<a href="test069-1.asp">テストのテンポラリファイルを作成する</a><br>
↑※ファイル作成後、再度テストしてみてください。<br>
<br>
</body>
</html>