Hi all
Like a lot of other things in VBA in Office 2011 Dir is not working the same as in Windows.
Together with a great Apple Scripter DJ Bazzie Wazzie I create a VBA function that you can use instead. You can download a file from my site so you can test it.
http://www.rondebruin.nl/mac.htm#Loop
You call the function with one line of code :
Call GetFilesOnMacWithOrWithoutSubfolders(Level:=1, ExtChoice:=0, FileFilterOption:=0, FileNameFilterStr:=”SearchString”)
‘Level : 1= Only the files in the folder, 2 to ? levels of subfolders
‘ExtChoice : 0=(xls|xlsx|xlsm|xlsb), 1=xls , 2=xlsx, 3=xlsm, 4=xlsb, 5=csv, 6=txt, 7=all files, 8=(xlsx|xlsm|xlsb), 9=(csv|txt)
‘FileFilterOption : 0=No Filter, 1=Begins, 2=Ends, 3=Contains
‘FileNameFilterStr : Search string used when FileFilterOption = 1, 2 or 3
You can add also more extensions or replace it for word extensions or so.
Thanks, feedback good or bad is welcome