Kopírování souboru pomocí FSO

Postup:
Do projektu přidejte referenci na Microsoft Scripting Runtime. Pak je funkce pro kopírování souboru následující:

Function CopyFile(ByVal lsSource As String, ByVal lsDestination As String, _
            Optional ByVal lbOverWriteFiles As Boolean) As Boolean

    On Error GoTo CopyFile_EH
    Dim fso As New Scripting.FileSystemObject
    Dim lbOverwrite As Boolean
    
    If fso.FileExists(lsSource) Then
        If IsMissing(lbOverWriteFiles) Then
            lbOverwrite = False
        Else
            lbOverwrite = lbOverWriteFiles
        End If
        fso.CopyFile lsSource, lsDestination, lbOverwrite
        CopyFile = True
    Else
        CopyFile = False
    End If
    
CopyFile_Exit:
    Set fso = Nothing
    Exit Function
    
CopyFile_EH:
    CopyFile = False
    Resume CopyFile_Exit

End Function

Zpět