Bad file name or number - Runtime Error 52

[Dave_D]

I'm using a DIR function to check the existence of asaved file in Sharepoint, but each variation of strFilename used: strFilename = <My URL> & ShrtNamestrFilename = "//teamportalprod1.xxx.org/sites/RCSvcsInfo/RCS_APPS_Productivity/SharedDocuments/Productivity/" & ShrtName strFileExists = Dir(strFilename, vbDirectory)returns a runtime error 52 - "Bad file name ornumber" I am able to save the file using <URL> & ShrtName

[snb]

Sufficient:

strFileExists = Dir(strFilename)

[Dave_D]

I just caught an article mentioning that DIR() using the URL will not work, which only leaves me

//teamportalprod1.xxx.org/sites/RCSvcsInfo/RCS_APPS_Productivity/SharedDocuments/Productivity/" & ShrtName as my option. Note taken that vbDirectory is not required, but still receive

runtime error 52 - "Bad file name or number".

[snb]

vbDirectory is wrong if you are looking for a file.

[Paul_Hossler]

Don't have SharePoint anymore. but you can try

bFilexists = Dir ("//teamportalprod1.xxx.org/sites/RCSvcsInfo/RCS_APPS_Productivity/SharedDocuments/Productivity/" & ShrtName) <> 0

or

bFilexists = Dir ("\\teamportalprod1.xxx.org\sites\RCSvcsInfo\RCS_APPS_Productivity/SharedDocuments/Productivity/" & ShrtName) <> 0

This post reportedly has a solution, at least for SP2013


https://social.technet.microsoft.com...repointgeneral

[Dave_D]

I tried both of your suggestions, each receiving the same "Bad file name or number". I also tried the following code from social.technet.microsoft.com...repointgeneral

Public Function FileExist(SharePointURL As String) As Boolean
' This function check URL exist
' It return true if file exist in sharepoint
' SharePointURL include file extension' IMPORTANT:You need to activate reference "Microsoft WinHTTP Services. version 5.1"!!!!!
Dim RequestSharepoint As New WinHttpRequest
On Error GoTo FileExistError
    RequestSharepoint.Open "HEAD", SharePointURL
    RequestSharepoint.Send
    If RequestSharepoint.Status = 200 Then
        FileExist = True
    Else
        FileExist = False
    End If
    Exit Function
FileExistError:
    FileExist = False
End Function

I passed my URL string and added WinHTTP Services.
This time the RequestSharepoint.Status was a 401; Unauthorized.

I'm starting to believe this issues is more related to administrative rights.

So, I wonder why myself and others are able to straight out able to save the file in SharePoint, but need to be authenticated first, just to verify a file existence.