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