使用FileSystemObject检查时,Sharepoint库中的旧版本文件不存在

时间:2015-02-06 02:50:08

标签: vba excel-vba sharepoint sharepoint-2007 excel

给定Sharepoint列表中文档的先前版本的文件路径,我想查看该文件是否存在。我的代码:

Sub test()

Dim fso As New FileSystemObject

If fso.FileExists("\\wss\GE\sites\Station\_vti_history\6656\x\x_1.xlsm") Then
 Debug.Print "file exists"
Else
 Debug.Print "file doesn't exist"
End If

End Sub

我知道这个文件存在是因为当我把URL放到Internet Explorer中时:

http://wss/GE/sites/Station/_vti_history/6656/x/x_1.xlsm

然后文件成功打开。

我认为通过Windows文件系统访问_vti_history是一个问题,因为Windows资源管理器让我打开:

\\wss\GE\sites\Station\

但不是

\\wss\GE\sites\Station\_vti_history\

如果我传入

fso.FileExists("\\wss\GE\sites\Station\x\x_1.xlsm")

相反,然后FileExists返回true。

如何使用VBA检查此旧文件版本是否存在?

编辑:到目前为止,我已经成功通过MSXML2.XMLHTTP发出GET请求,并检查httpResponse是否为200,但理想情况下我想要一个不涉及实际下载文件的解决方案

0 个答案:

没有答案