Tip of the day: How to launch Disc Utility?

You can use this code:

  Sub Open()
    dim f as FolderItem = LaunchServicesFindApplicationForInfoMBS("","com.apple.DiskUtility","")
    
    if f<>Nil then
      f.Launch
    end if    
  End Sub

By bundle ID you can launch all applications on Mac. Even if the user moved or renamed them. Used tags: tips