1

URL からサーバーにファイルのコピーを保存する古い VBScript 関数があります。ファイルが既に存在する場合、関数は以前のバージョンを削除し、新しいファイル バージョンに書き換えます。問題は、大文字と小文字を区別するファイル名を挿入する必要があることです。たとえば、ファイル名「Test.html」と「test.html」は別のコピーとして保存する必要があり、私の関数はそれらを置き換えるだけです。なにか提案を?

関数:

Public Function SaveToChache(Url, SaveToFolder, FileName)
    Dim ChacheFolder: ChacheFolder = SaveToFolder 'Folder where will the cache files be   stored (include trailing slash)
    Dim FilePath: FilePath = Server.MapPath(ChacheFolder & FileName)
     Dim objXMLHTTP: Set objXMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
     objXMLHTTP.open "GET", Url, false
     objXMLHTTP.send()
     If objXMLHTTP.Status = 200 Then 
         Dim objADOStream: Set objADOStream = CreateObject("ADODB.Stream")
         objADOStream.Open
         objADOStream.Type = 1 'adTypeBinary
         objADOStream.Write objXMLHTTP.ResponseBody
         objADOStream.Position = 0 'Set the stream position to the start
         Dim objFSO: Set objFSO = Createobject("Scripting.FileSystemObject")
        If objFSO.FileExists(FilePath) Then objFSO.DeleteFile FilePath
        Set objFSO = Nothing
        objADOStream.SaveToFile FilePath
        objADOStream.Close
        Set objADOStream = Nothing
        SaveToChache = objXMLHTTP.getResponseHeader("Content-Type")
    Else
        SaveToChache = ""
    End if
    Set objXMLHTTP = Nothing
End Function

関数の呼び出し:

savefile = SaveToChache("http://www.example.com", "/cache/", "Test.html")

ありがとう!

4

1 に答える 1