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