Skip to main content
se añadieron 84 caracteres en el cuerpo
Origen Enlace
A. Cedano
  • 95.2k
  • 31
  • 145
  • 257

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"
    

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"

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"
    
se añadieron 424 caracteres en el cuerpo
Origen Enlace

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 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"

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"

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.

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"

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"

etiquetas editadas
Origen Enlace
sstan
  • 16.9k
  • 2
  • 24
  • 48

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í. Así es: Sem_20170228 Sem_20170228.

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

Option Explicit Dim fso Set fso = CreateObject("ScriptingEntonces necesito que dentro del string del nombre, agregar esa variable.FileSystemObject")

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

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"

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"

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.

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"
Origen Enlace
Loading