Private Sub cmdCopy_Click()
  Dim sName As String
  Dim sPath As String
 
  If InStr(txtFilename.Text, "\") > 0 Then
    sName = Mid$(txtFilename.Text,  InStrRev(txtFilename.Text, "\") + 1)
  Else
    sName = txtFilename.Text
  End If
 
  sPath = txtOrdner.Text
  If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
 
  FileCopy txtFilename.Text, sPath & sName
End Sub