Kopírování adresáře pomocí FSO
Postup:
Do projektu přidejte referenci na Microsoft Scripting Runtime. Pak
je funkce pro kopírování adresáře následující:
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