Dim popo as stringDim pipi as stringpipi = Text2.text 'Vos pones el directorio destino en el textboxpopo = Text1.text 'Vos pones el archivo a copiar en el textboxShell ("cmd.exe /c copy " & popo & " " & pipi & "\" & popo)