Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro works fine on PC; fails on Mac
Hi- Someone on this board was kind enough to write the macro (user define function) below for me. Its purpose is to search for file names in desktop folder and return a true or false depending on whether or not match is found in the folder. It works on a PC, but when I run it on my Mac, I get the followin error: #VALUE!. Is there some element that has to be define differently for Mac? Does anyone know how I can get this UDF to work o 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 Functio -- marle ----------------------------------------------------------------------- marlea's Profile: http://www.excelforum.com/member.php...fo&userid=2620 View this thread: http://www.excelforum.com/showthread.php?threadid=52454 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro works fine on PC; fails on Mac
marlea,
The Shell function is not available on Macintosh versions earlier than System 7.0 The FileSystemObject requires Windows. Jim Cone San Francisco, USA http://www.realezsites.com/bus/primitivesoftware "marlea" wrote in message... 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 -- marlea |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro fine Run fine from Select but not from KB Shortcut? | Excel Discussion (Misc queries) | |||
Macro hangs up often but sometimes works fine | Excel Worksheet Functions | |||
Works fine in debug, but... | Excel Programming | |||
Solver GUI works fine, but the VBA macro won't return any results | Excel Programming | |||
Macro works fine in xl2002 but does not in xl 2000 | Excel Programming |