从URL读取文件

Question

是否可以从URL读取.css和.js等文件？例如，我有一个文件，位于http://main/shared/css/main.css，想要读取此文件并将其内容存储在c:\main.txt的另一个文件中。我知道如何读取本地驱动器中的文件但不知道如何为URL执行此操作。非常感谢任何帮助。

Answer 1

您可以使用XMLHttpRequest：

url = "http://main/shared/css/main.css"

Set req = CreateObject("Msxml2.XMLHttp.6.0")
req.open "GET", url, False
req.send

If req.Status = 200 Then
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.OpenTextFile("C:\main.txt", 2).Write req.responseText
End If

Answer 2

是的，只要你知道有问题的文件名，就应该能够做一个简单的XMLHttpRequest

Answer 3

url = "http://main/shared/css/main.css"

Set req = CreateObject("Msxml2.XMLHttp.6.0")
req.open "GET", url, False
req.send

If req.Status = 200 Then
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.OpenTextFile("C:\main.txt", 8, true, 0).Write req.responseText
End If

  

稍微修改OpenTextFile行，以便创建文本文件   在本地，如果它不存在。