کپی فایل

[isaac23]

سلام می تونید از Fso استفاده کنید

فایل سیستم ابجکت
نکته : تابع زير كه به زبان VB هست از Microsoft Scripting Runtime Library براي كپي كردن يك Folder استفاده ميكنه.
بنابراين براي استفاده از تابع زير اول بايد در VB از منوي Project و بعد References گزينه Microsoft Scripting Runtime Library رو به پروژه خودتون اضافه كنيد.

Function CopyFolder(ByVal lsSource As String, ByVal lsDestination As String, _            Optional ByVal lbOverWriteFolder As Boolean) As Boolean

    On Error GoTo CopyFolder_EH

    Dim fso As New Scripting.FileSystemObject

    Dim lbOverwrite As Boolean

    

    If fso.FolderExists(lsSource) Then

        If IsMissing(lbOverWriteFolder) Then

            lbOverwrite = False

        Else

            lbOverwrite = lbOverWriteFolder

        End If

        fso.CopyFolder lsSource, lsDestination, lbOverwrite

        CopyFolder = True

    Else

        CopyFolder = False

    End If

    

CopyFolder_Exit:

    Set fso = Nothing

    Exit Function

    

CopyFolder_EH:

    CopyFolder = False

    Resume CopyFolder_Exit End Function

یک مثال برای تابع

Private Sub Command1_Click()    CopyFolder "C:\MyFolder", "D:\MyFolder", False End Sub