在VBscript中指定文件路径的正确方法是什么?

时间:2012-04-02 16:13:56

标签: asp-classic vbscript

VBscript的新手,并花费太多时间试图找到正确的方法来打开文件进行阅读。无论我尝试过什么,我总会得到“未找到路径”错误。

这是我文件的真实路径: d:\ INETPUB \虚拟主机\ lamardesigngroup.com \的httpdocs \

我尝试运行的文件是: d:\ INETPUB \虚拟主机\ lamardesigngroup.com \的httpdocs \ IFP \ files.asp

我想读这个文件: d:\ INETPUB \虚拟主机\ lamardesigngroup.com \的httpdocs \ IFP \ CSS \ style.css中

以下是代码:

Dim objFSO, strTextFile, strData, strLine, arrLines
CONST ForReading = 1

'name of the text file
strTextFile = "//css/style.css"

'Create a File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Open the text file - strData now contains the whole file
strData = objFSO.OpenTextFile(strTextFile,ForReading).ReadAll

'Split the text file into lines
arrLines = Split(strData,vbCrLf)

'Step through the lines
For Each strLine in arrLines
    response.write(strLine & "<br>")
Next

'Cleanup
Set objFSO = Nothing

我得到“12 | 800a004c | Path_not_found 80”

我也试过

strTextFile = "D:\InetPub\vhosts\lamardesigngroup.com\httpdocs\ifp\css\style.css"

' and 
strTextFile = "\\css\style.css"
strTextFile = "css\style.css"
strTextFile = "css/style.css"

' and many other combinations

我显然已经失去了......

1 个答案:

答案 0 :(得分:2)

Morning Harley,

尝试一下:

strTextFile = server.MapPath("css/style.css")

它应该会识别您的特定服务器位置。我遇到了这个问题,试图让一些vbscript文件上传代码工作。它应该从您的页面工作的文件夹开始,然后从那里开始。