Postada em 04/08/2005 18:20 hs
Private Sub Command1_Click()
MovePasta Text1.Text, Text2.Text ' Ambos os caminhos precisam ser fechados por barra exemplo : "c:Pasta a ser copiada", "c:Pasta para onde copiar"
End Sub
Private Sub MovePasta(ByVal pOrigem As String, ByVal pDestino As String)
' Set fso = CreateObject("Scripting.FileSystemObject") <<<< usar isso se nao for fazer referencia direta (Menu project ->references -> "Microsoft Scripting Runtime") como na primeira linha abaixo
Dim fso As New FileSystemObject, Pasta As Folder
Set Pasta = fso.GetFolder(pOrigem)
Pasta.Move pDestino
End Sub
'-----------------
Não testei com unidades mapeadas mas a principio como caminho UNC esse code acima não funciona(naum testei copia via rede) mas acho que já ajuda amigo...
Abraços, Sidnei
|
