Hallo an Alle,
ich möchte gern einen Link zu meiner Arbeitsmappe mit benutzerdefiniertem Icon auf dem Desktop per VBA ablegen. Kann mir bitte jemand dabei helfen?
Vielen Dank im voraus!
Ralf
Hallo
probiers mal Sub Erstelle_Verzeichnis_und_Shortcut() Dim myFSO AsObject Dim myFSOShell AsObject Dim strDesktop AsString Dim myMainFolder AsString Dim mySubFolder AsString Dim myShortCut AsObject Dim myToCopyFile As String, myFileExt AsString 'Variablen füllen myMainFolder = "C:\Ordner1" mySubFolder = myMainFolder & "\Ordner2" 'OHNE Extension myToCopyFile = "Mappe1" myFileExt = ".xls" Set myFSO = CreateObject("Scripting.FileSystemObject") Set myFSOShell = CreateObject("WScript.Shell") 'Verzeichnis und Unterverzeichnis anlegen ChDrive "C:" IfNot myFSO.folderexists(myMainFolder) OrNot myFSO.folderexists(mySubFolder) Then OnErrorResumeNext MkDir myMainFolder MkDir mySubFolder EndIf
'Datei von extrern kopieren '---- 'myFSO.CopyFile "A:\" & myToCopyFile & myFileExt, mySubFolder 'Icon copieren das vorhanden sein muss !!! '---- 'myFSO.CopyFile "A:\" & myToCopyFile & ".ico", mySubFolder
'Verknüpfung auf dem Desktop erzeugen strDesktop = myFSOShell.SpecialFolders("Desktop") Debug.Print strDesktop Set myShortCut = myFSOShell.CreateShortcut(strDesktop + "\" & myToCopyFile & ".lnk") Debug.Print myShortCut With myShortCut 'Fenstertyp beim öffnen ' 4=Normal 3=Maximized 7=Minimized .windowstyle = 4 .IconLocation = mySubFolder & "\" & myToCopyFile & ".ico" ' oder alternativ ein anderes Icon '.IconLocation = "C:\graph9.ico" .Targetpath = mySubFolder & "\" & myToCopyFile & myFileExt 'Keyboard Shortcut zuweisen .Hotkey = "ALT+CTRL+E" 'Speichern .Save EndWith EndSub
Gruss Rainer
Anzeige
AW: Link auf Desktop per VBA erstellen
16.07.2005 12:23:45
Peter
Servus,
MfG Peter
AW: Link auf Desktop per VBA erstellen
16.07.2005 12:28:40
Ramses
Hallo Peter
daran habe ich mich gar nicht mehr erinnert :-)
Gruss Rainer
OT: Meine Bestimmung
16.07.2005 16:39:51
Peter
Servus,
na dann hab ich doch eine Aufgabe gefunden. Den älteren Herren des Forums auf Ihre Codes aufmerksam zu machen. :D:D
MfG Peter
AW: Link auf Desktop per VBA erstellen
16.07.2005 16:54:20
Ralf
Hallo Rainer und Peter,
besten Dank Euch beiden! Vorallem an Rainer, hat er doch unbewusst zu beiden Lösungen beigetragen...:-)
Funktionieren beide bestens!
Wünsche Euch noch ein schönes Wochenende!
Ciao, Ralf