Dim fso, WSHShell, MyShortcut, MyDesktop, DesktopPath
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
 
'Hier erstelle ich den Ordner'
 
 
set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("C:\Users\risf1\Desktop\Testordner")
 
 
'Hier kopiere ich die Dateien'
 
 
fso.CopyFile "\\Viefs001\Apps\PTW525\*.*", "C:\Users\risf1\Desktop\Testordner"
 
 
'Hier mache ich die verknüpfung'
 
 
Set WSHShell = WScript.CreateObject("WScript.Shell")
 
DesktopPath = WSHShell.SpecialFolders("AllUsersDesktop")
 
 
Set pt525 = WSHShell.CreateShortcut(DesktopPath & "\PT525.lnk")
 
 
pt525.TargetPath = "C:\Users\risf1\Desktop\Testordner\pt525.exe" 
 
pt525.WindowStyle = 1
 
pt525.IconLocation = "C:\Users\risf1\Desktop\Testordner\pt525.exe, 0"
 
pt525.WorkingDirectory = "C:\Users\risf1\Desktop\Testordner"
 
pt525.Arguments = "osf.psl okotrue64"
 
pt525.Save