ich möchte einer Schaltfläche ein Makro zuweisen das bei click einen ordner auf dem Desktop öffnet.
kann mir da jemand helfen?
Gruß
ralf
Sub Desktopordner_öffnen()
Shell "Explorer ,C:\Dokumente und Einstellungen\GanzNeuer\Desktop\Neuer Ordner", vbNormalFocus
End Sub
Sub openFolder()
Dim strDesktop As String, strFolder
strFolder = "Google.url"
strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Shell "C:\Windows\explorer.exe /e, " & strDesktop & "\" & strFolder, vbNormalFocus
End Sub