Shell + String em VB 2013

[analistadesistema 0]

Estou em uma situação ao qual não consigo encontrar uma solução no momento.

================================================================

Public Class Form1

Dim Dir1 as String = "C:\temp\*.*"

Dim Dir2 as String = "C:\Pasta Temp\temp\*.*"

Dim Dir3 as String = "C:\Pasta_Temp\temp\*.*"

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Shell("xcopy /E /H " & Dir1 & " " & Dir2, vbNormalFocus)

'aqui ocorre um erro dentro do shell (numero de parametro invalido)

'esse erro ocorre por conta da String Dir2 conter espaço

'preciso de uma idéia de como contornar esse problema.

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Shell("xcopy /E /H " & Dir1 & " " & Dir3, vbNormalFocus)

'aqui o conteúdo da pasta é copiada normalmente.

'pois a string Dir3 contem um _ no local do espaço.

End Sub

End Class

=====================================================================

vou utilizar as Strings Dir1, Dir2 e Dir3 de um Arrays Publico de um Modulo no meu projeto,

por esse motivo os valores destas Strings vai ser variados.

fico no aguardo de um auxílio dos colegas.

[KhaosDoctor 242]

O que você quer fazer?