Hi-
Someone on this board was kind enough to write the macro (user defined function) below for me. Its purpose is to search for file names in a desktop folder and return a true or false depending on whether or not a match is found in the folder.
It works on a PC, but when I run it on my Mac, I get the following error: #VALUE!. Is there some element that has to be defined differently for Mac? Does anyone know how I can get this UDF to work on my Mac? Thank you!
-------------
Function FileInDeskFldr(fName As String) As Boolean
Const Desktop = &H10&
Dim strDsk As String
Dim strFldrPath As String
' Find path to the Folder on the Desktop
Set objShell = CreateObject("Shell.Application")
Set objFolderDsk = objShell.Namespace(Desktop)
strDsk = objFolderDsk.Self.Path
strFldrPath = strDsk & "\Test"
' Verify existence of named file in the Desktop Folder
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFldrPath & "\" & fName) Then
FileInDeskFldr = True
Else
FileInDeskFldr = False
End If
Set objFolderDsk = Nothing
Set objShell = Nothing
Set objFSO = Nothing
End Function
Bookmarks