insertar archivo en carpeta creada

rodrigoles
16 de Julio del 2004
Estoy intentando programar en vb pero en un documento word. he creado una carpeta a través de este código:
sDir1 = "C:Documents and SettingsRODRIGOEscritorioCopia de base ProgramaInformes"
On Local Error Resume Next
sTmp = InputBox("Nombre del directorio a crear en " & vbCrLf & sDir1, "Crear directorio", "")
sTmp = sDir1 & sTmp
MkDir sTmp
Ahora necesito insertar un archivo existente en esta carpeta...cómo lo hago????
Estaría enormemete agradecido ante alguna solución


sdemingo
16 de Julio del 2004
Dim fs As Object

Set fs = CreateObject("Scripting.FileSystemObject")

'Puedes Copiar el archivo
fs.CopyFile rutaOriginal, rutaNueva

'Puedes Mover el archivo
fs.MoveFile rutaOriginal, rutaNueva

salu2
sdemingo

rodrigogm78
16 de Julio del 2004
sDir1 = "C:\Documents and Settings\RODRIGO\Escritorio\Copia de base Programa\Informes\"
On Local Error Resume Next
sTmp = InputBox("Nombre del directorio a crear en " & vbCrLf & sDir1, "Crear directorio", "")
sTmp = sDir1 & sTmp
MkDir sTmp
FileCopy "rutaorigen", sTmp

rodrigoles
16 de Julio del 2004
he seguido tus instrucciones!!....siguiendo al pie de la letra tu código me han aparecido errores de sintaxis, como el (\) después del Filecopy. Manteniendo el código original que plantié y agregando el:
FileCopy "C \ Documents and Settings\MAESTRO.doc", stmp
...aún no me ha insertado el archivo!!
Cuál será el problema???
MUCHAS GRACIAS POR RESPONDER