"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"