ASP创建文本文件ObjFileSys.CreateTextFile

时间:2014-10-01 14:39:48

标签: vbscript asp-classic filesystemobject

我正在尝试在临时目录中创建一个文本文件......

我不明白我做错了什么......

我的错误是:

Microsoft VBScript runtime error '800a004c'
Path not found
/racklabels/desktop/printLabel.asp, line 128

我的服务器上有一个临时目录,我正在运行...

strFileNameQAD = "C:\temp\" & strFileNameRBB

'Create the files, write to them & close them.
If bBackFlush = True Then
    Set filQAD = objFileSys.CreateTextFile(strFileNameQAD)
    filQAD.WriteLine ("H::" & strPart & strLocation & strSite & strQty & strSerial & strRef & strUserID & strAccount & strSubAccount & strCostCenter & strEffDate & strYes)
    filQAD.WriteLine ("D::" & strFromLocation & strNo & strUserID)
    filQAD.Close
    Set filQAD = Nothing
End If

1 个答案:

答案 0 :(得分:2)

FileSystemObject抱怨strFileNameQAD中包含的路径,尝试在违规行之前放置Response.Write strFileNameQAD : Response.Flush以查看strFileNameQAD输出的内容。

  

注意: Response.Flush会导致服务器写入响应标头和缓冲区,因此即使您的脚本出错,输出也会首先显示。

strFileNameQAD = "C:\temp\" & strFileNameRBB

'Create the files, write to them & close them.
If bBackFlush = True Then
    'Output strFileNameQAD variable to check content
    Response.Write strFileNameQAD : Response.Flush
    Set filQAD = objFileSys.CreateTextFile(strFileNameQAD)
    filQAD.WriteLine ("H::" & strPart & strLocation & strSite & strQty & strSerial & strRef & strUserID & strAccount & strSubAccount & strCostCenter & strEffDate & strYes)
    filQAD.WriteLine ("D::" & strFromLocation & strNo & strUserID)
    filQAD.Close
    Set filQAD = Nothing
End If

strFileNameQAD变量是否包含预期路径?我的猜测是strFileNameRBB为空,因此FileSystemObject看到C:\temp\但没有要创建的文件,因此错误。