UDF to check if a file/folder exists

[Asator]

Why does this code return #Value! ?

Using it like this:
=sdir(cell with path string<CELL path with reference>,"vbDirectory")

Function sDir(path As String, param As String) As Boolean
Application.Volatile
If Dir(path, param) <> "" Then
    sDir = True
Else
    sDir = False
End If
End Function

 

[Norie]

What value(s) are you passing using the param argument?

The 2nd argument in Dir isn't a string, it's an integer.

It's normally represented using a constant with vbDirectory(16) for directory.

For a file you either leave it out or use vbNormal(0), which is the default.

 

[Rick Rothstein]

The second argument to the Dir function is not a String value, it is a numerical value. Give this UDF a try instead (it will allow you to still pass the UDF's second argument as a String, the UDF will handle converting it to the correct numerical value)...

Function sDir(sPath As String, sParam As String) As Boolean
  Dim Setting As Long
  Application.Volatile
  Select Case LCase(sParam)
    Case "vbnormal": Setting = vbNormal
    Case "vbreadonly": Setting = vbReadOnly
    Case "vbhidden": Setting = vbHidden
    Case "vbsystem": Setting = vbSystem
    Case "vbvolume": Setting = vbVolume
    Case "vbdirectory": Setting = vbDirectory
  End Select
  sDir = Dir(sPath, Setting) <> ""
End Function

 

[Asator]

Herp derp. I knew it was something stupid. Thanks!