Sub Click(Source As Button)
Dim a As String
Dim b As String
a = "C:\tmp\test.txt"
b= "c:\tmp\loch"
' folgendes klappt
Filecopy "C:\tmp\test.txt", "c:\tmp\loch"
Kill "c:\tmp\loch"
' Hier taucht ein Permision denied auf
Filecopy a, b
Kill b
End Sub