Option Explicit

'ﾌｧｲﾙを別のﾌｫﾙﾀﾞにｺﾋﾟｰする

Private Sub Command1_Click()
    Dim ret
    
    ret = FC(Text1.Text, Text2.Text)
    
End Sub

'ﾌｧｲﾙ転送関数
'   Sou     ｺﾋﾟｰ元
'   Des     ｺﾋﾟｰ先
Function FC(ByVal Sou As String, ByVal Des As String) As Long
    Dim FileSou As String, FName As String
    Dim j As Integer, PathLen As Integer
    
    On Error GoTo ErrGoto
    
    PathLen = Len(Sou) 'ｺﾋﾟｰ元のﾌｧｲﾙﾊﾟｽの文字列の長さを代入
    
     'ｺﾋﾟｰ元のﾌｫﾙﾀﾞを探す
    For j = PathLen To 1 Step -1
        If Mid(Sou, j, 1) = "\" Then
            FName = Mid(Sou, j + 1)
            Exit For
        End If
    Next
    
    FileCopy Sou, Des & "\" & FName 'ﾌｧｲﾙをｺﾋﾟｰする
    
    Exit Function
    
ErrGoto:
    FC = Err.Number
    
End Function