serz,
hab da mal ne frage: ich würde gerne ein script erstellen dass als gag txt verknüpfungen erstellt, und zwar in einer schleife so dass z.B. hundert verknüpfungen erstellt werden. könnte mir da jemand helfen da ich mich auf dem gebiet nicht wirklich auskenne.
thx im vorraus
Hallo,
habe hier ein Beispiel rausgesucht.
Funktion CreateLink benötigt ‚SHELLLNK.TLB‘
Option Explicit
Private Sub Form_Load()
'Den Pfad angeben in wo die auszuführende exe liegt z.B
’ c:\windows\Explorer.exe
Label1.Caption = App.Path & „\Explorer.exe“
'Name der Verknüpfung
Text2.Text = App.Path & „\Test.lnk“
End Sub
Private Sub Command1_Click()
If Label1.Caption „“ And Text2.Text „“ Then
CreateLink Label1.Caption, Text2.Text
End If
End Sub
Private Function CreateLink(Datei$, LinkName$)
Dim cShellLink As ShellLinkA
Dim cPersistFile As IPersistFile
Set cShellLink = New ShellLinkA
Set cPersistFile = cShellLink
cShellLink.SetPath Datei
cPersistFile.Save StrConv(LinkName, vbUnicode), 0
Set cPersistFile = Nothing
Set cShellLink = Nothing
End Function
MfG Wally
Ups, sorry da war ich wohl zu schnell…
MfG Wally