Skip to main content
1 de 4

VBScript insertar fecha dentro de ruta

Estoy haciendo un proceso en VBScript. Necesito copiar unos archivos de una carpeta a otra otra. Eso ya está hecho, pero el problema es que el nombre de la carpeta desde la que se copia varía cada semana, debido a que corresponde a la fecha Así es: Sem_20170228

Entonces necesito que dentro del string del nombre, agregar esa variable, DEJO EL CÓDIGO

Option Explicit Dim fso Set fso = CreateObject("Scripting.FileSystemObject")

If filesys.FileExists("C:Bibliotecas\Documentos\Sem_" &FECHA"*.pdf") Then filesys.CopyFile ""C:Bibliotecas\Documentos\Sem_" &FECHA"*.pdf"", "C:\Users\alpnheg\Documents\TUTORIALES"