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. La fecha está formateada para que aparezca así YYYYMMD y se me desordenó el código
Código:
Option Explicit
Dim g_oSB : Set g_oSB = CreateObject("System.Text.StringBuilder")
Function sprintf(sFmt, aData) g_oSB.AppendFormat_4 sFmt, (aData) sprintf = g_oSB.ToString() g_oSB.Length = 0 End Function
Dim fso Dim dt : dt = now()
'WScript.Echo sprintf("{0:yyyyMMdd}", Array(dt))
Set fso = CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("C:Bibliotecas\Documentos\Sem_" +dt "*.pdf") Then
'filesys.CopyFile "C:Bibliotecas\Documentos\Sem_" +dt "*.pdf", "C:\Users\alpnheg\Documents\TUTORIALES"
Option Explicit
Dim g_oSB : Set g_oSB = CreateObject("System.Text.StringBuilder")
Function sprintf(sFmt, aData)
g_oSB.AppendFormat_4 sFmt, (aData)
sprintf = g_oSB.ToString()
g_oSB.Length = 0
End Function
Dim fso
Dim dt : dt = now()
'WScript.Echo sprintf("{0:yyyyMMdd}", Array(dt))
Set fso = CreateObject("Scripting.FileSystemObject")
If
filesys.FileExists("C:Bibliotecas\Documentos\Sem_" +dt "\*.pdf")
Then
'filesys.CopyFile "C:Bibliotecas\Documentos\Sem_" +dt "\*.pdf", "C:\Users\alpnheg\Documents\TUTORIALES"