VBScript FileExists始终失败

Question

我们正在尝试为我们的应用程序读取一些日志文件，但是FileExists在每种情况下均会失败。 因此，我使用以下测试代码简化了问题：

Dim filespec, msg
filespec = Chr(34) & "C:\Windows\explorer.exe" & Chr(34) 
'filespec = "C:\Windows\explorer.exe" 
'filespec = Chr(34) & "C:" & Chr(34) 
'filespec = "C:"
'filespec = "default.asp"
 Set fso = CreateObject("Scripting.FileSystemObject")
 If (fso.FileExists(filespec)) Then
     msg = filespec & " exists."
 Else
  msg = filespec & " doesn't exist."
 End If
 Response.Write(msg)

如您所见，我们已经尝试在添加或不添加Chr（32）（双引号字符）的情况下进行测试。 我们正在针对文件C：\\ Windows \\ explorer.exe进行测试，并且在托管asp文件和iis服务器的计算机上确实存在文件C：\\ Windows \\ explorer.exe。 仅检查C驱动器是否存在，我们甚至失败。

此外，如果我们尝试查看default.asp文件是否存在并且该文件与filetest.asp文件位于同一目录中，则它甚至会失败。

有谁知道为什么我们的FileExists持续失败？ 谢谢。

Answer 1

filespec = "C:\Windows\explorer.exe"

没有额外的报价将起作用。 要找到一个文件夹，我们需要使用

 fso.FolderExists

而不是FileExists。

仍然在同一目录中找不到default.asp文件。 但是该问题与我们实际的问题相去甚远，后者是查看另一个驱动器上的日志文件。 这个问题与原始问题相去甚远，因此我将单独发布该问题。

Answer 2

您可能想要尝试将文件夹加载到文件夹对象中，并循环浏览该文件夹对象中的文件。 下面是一个例子。

Set fso = CreateObject("Scripting.FileSystemObject")

FileToFind = "explorer.exe"
FolderToSearch = "C:\Windows\"

Set myFolder = fso.GetFolder(FolderToSearch)

For each myFile in myFolder.Files

    If myFile.Name = FileToFind Then 
        Wscript.echo "Found " & myFolder.Path & "\" & myFile.Name
    End If

Next

Answer 3

您无需插入其他引号。 删除报价就可以了。

 Dim filespec, msg

 filespec = "C:\Windows\explorer.exe" 

 Set fso = CreateObject("Scripting.FileSystemObject")
 If (fso.FileExists(filespec)) Then
     msg = filespec & " exists."
 Else
     msg = filespec & " doesn't exist."
 End If

 Response.Write(msg)

过去，我仅注意到使用wshshell.run时需要插入其他引号，因为空格可能会解释为文件名的其他参数。

Answer 4

看来我们的问题根本不在VBScript中。 该应用程序在iis中的ApplicationPool中运行。 该应用程序池的Identity属性是动态创建的applicationPoolIdentity用户。 这是没有权限的用户。 因此，从本质上讲，该应用程序以无权访问任何其他驱动器的用户身份运行。 因此，它找不到任何网络驱动器上的任何文件。 我们将不得不创建一个具有适当权限的附加身份，并将我们的applicationPool身份设置为使用该自定义帐户。

我在此处找到有关如何设置此身份帐户的说明： http : //technet.microsoft.com/zh-cn/library/cc771170%28v=ws.10%29.aspx