"Icon" für die Datei

Bild

Betrifft: "Icon" für die Datei von: Walter
Geschrieben am: 28.03.2005 16:10:18

Hallo Zusammen,
erst mal : noch der Rest des Tages
"Frohes Fest"
Nun zu meiner Frage:
ich habe ein DOS-Bat Datei erstellt, mit dieser wird eine Datei vom Zentrallaufwerk in das entsprechende Laufwerk "C" des Anwenders kopiert.
Nun möchte ich auch das ein kleines Icon erstellt wird und auf dem Desktop
abgelegt wird. Ist dieses "Icon" vorhanden soll nichts kopiert werden.
Geht das ???
Oder kann ich dies in meinem Makro beim automatischen Öffnen der Datei
erstellt wird?
Gruß Walter

Bild


Betrifft: AW: "Icon" für die Datei von: Ramses
Geschrieben am: 28.03.2005 18:27:11

Hallo

Wenn du den IE6 hast (Voraussetzung für den Windows Scripting Host) dann sollte es damit gehen.


Public DeskFile As String

Sub Create_Link_On_Desktop()
Dim wsh As Object
Dim tarLink As Object
Dim tarDeskTop As String
Set wsh = CreateObject("WScript.Shell")
tarDeskTop = wsh.SpecialFolders("Desktop")
Set tarLink = wsh.CreateShortcut(tarDeskTop & _
    "\" & ThisWorkbook.name & ".lnk")
With tarLink
    .Targetpath = ThisWorkbook.FullName
    .Save
End With
Set wsh = Nothing
End Sub



Damit kannst du einen Link zu deiner Datei auf dem Desktop des Users anlegen

Gruss Rainer


Bild


Betrifft: AW: "Icon" für die Datei von: Walter
Geschrieben am: 28.03.2005 18:54:01

Hallo Rainer,
vielleicht für Dich normal, leider kann ich mit "IE6" nichts anfangen.
Bitte kurze Info,
Danke im voraus
Walter


Bild


Betrifft: IE6 = Internet Explorer Version 6.x o.T. ;-) von: Ramses
Geschrieben am: 28.03.2005 19:02:23

...


Bild


Betrifft: Danke ich blödmannnnnnn von: Walter
Geschrieben am: 28.03.2005 19:18:12

Hallo Rainer,
bin wohl wirklich etwas bl...
Schönen Abend noch,
Danke
Gruß Walter


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Nur letzte zeile übertragen"