Olá! Tenho o código abaixo que uso para copiar diretórios (pastas), porém ele não avisa quando termina de copiar. Como faço para adicionar uma MsgBox por exemplo para avisar quando terminar de copiar? Obrigado!
Sub copiar()
copiarDiretorio(".\\Data", "C:\Instalador\Nome do Programa")
End Sub
Sub copiarDiretorio(ByVal CaminhoFonte As String, ByVal CaminhoDestino As String, Optional ByVal Sobrepor As Boolean = False)
Dim DiretorioFonte As DirectoryInfo = New DirectoryInfo(CaminhoFonte)
Dim DiretorioDestino As DirectoryInfo = New DirectoryInfo(CaminhoDestino)
If DiretorioFonte.Exists Then
If Not DiretorioDestino.Parent.Exists Then
Throw New DirectoryNotFoundException(" O diretório de destino não existe : " + DiretorioDestino.FullName)
End If
If Not DiretorioDestino.Exists Then
'MsgBox("O diretorio destino não existe , vou criá-lo", MsgBoxStyle.Critical, "Copia")
DiretorioDestino.Create()
End If
'copia todos os arquivos do diretório
Dim arquivos As FileInfo
For Each arquivos In DiretorioFonte.GetFiles()
If Sobrepor Then
arquivos.CopyTo(Path.Combine(DiretorioDestino.FullName, arquivos.Name), True)
Else
If Not File.Exists(Path.Combine(DiretorioDestino.FullName, arquivos.Name)) Then
arquivos.CopyTo(Path.Combine(DiretorioDestino.FullName, arquivos.Name), False)
End If
End If
Next
'copia todos os subdiretorios usando recursao
Dim subdir As DirectoryInfo
For Each subdir In DiretorioFonte.GetDirectories()
copiarDiretorio(subdir.FullName, Path.Combine(DiretorioDestino.FullName, subdir.Name), Sobrepor)
Next
Else
Throw New DirectoryNotFoundException("Diretório origem não existe " + DiretorioFonte.FullName)
End If
End Sub
