FileCopy

Private Declare Function GetUserName _
    Lib "advapi32.dll" _
    Alias "GetUserNameA" _
( _
    ByVal lpBuffer As String, _
    ByRef nSize As Long _
) As Long
 
Private Function UserName() As String
    Dim s As String
    s = Space$(255)
    Dim nSize As Long
    nSize = Len(s)
    Dim n As Long
    n = GetUserNameA(s, nSize)
    If n = 0& Then
        UserName = ""
    Else
        UserName = Left$(s, nSize - 1)
    End If
End Function
 
Private Function CopyInEigeneDateien(Source As String, TargetName As String) as _
  Boolean
    Dim Target As String, UN as String
 
    UN = UserName
    Target = "C:\Dokumente und Einstellungen\" & UN & "\" & TargetName
 
    FileCopy Source, Target
End Function

Private Sub Command1_Click()
    Call CopyInEigeneDateien("C:\test.txt", "kopierteDatei.txt")
End Sub

Kill