wie kann ich eine Datei auf der Festplatte mit Excel kopieren ?
Gruss
Holger
Public Function getLnkPath(datei As String)
Dim Shell As Object
Dim link As Object
Set Shell = CreateObject("WScript.Shell")
Set link = Shell.CreateShortcut(datei)
getLnkPath = link.TargetPath
Set Shell = Nothing
Set link = Nothing
End Function
Gruss
Holger