"without saving, replace this line with your own code." "And after you press OK it will be closed" & vbNewLine & _ MsgBox "You open this file : " & MySplit(N) & vbNewLine & _ ' Get the file name only and test to see if it is open.įname = Right(MySplit(N), Len(MySplit(N)) - InStrRev(MySplit(N), Application.PathSeparator,, 1)) "set applescript's text item delimiters to """" " & vbNewLine & _įor N = LBound(MySplit) To UBound(MySplit) MyPath & """ multiple selections allowed true) as string" & vbNewLine & _ "with prompt ""Please select a file or files"" default location alias """ & _ "set theFiles to (choose file of type " & _ "set applescript's text item delimiters to "","" " & vbNewLine & _ ' if you want to filter on xls and csv files, for example. ![]() Additionally, if you want to filter for multiple files, change ' selections allowed true" if you do not want to be able to select more ' In the following statement, change true to false in the line "multiple 'Or use MyPath = "Macintosh HD:Users:Ron:Desktop:TestFolder:" ![]() MyPath = MacScript("return (path to documents folder) as String") ![]() I suggest you to refer code example below which is written for MAC. It is possible that your above code is only able to work for Windows pc. I try to run code on that and it works correctly.
0 Comments
Leave a Reply. |