Tip of the day: How to launch Disc Utility?
30 08 10 - 11:46 You can use this code:Sub Open()By bundle ID you can launch all applications on Mac. Even if the user moved or renamed them.
dim f as FolderItem = LaunchServicesFindApplicationForInfoMBS("","com.apple.DiskUtility","")
if f<>Nil then
f.Launch
end if
End Sub
two comments