Así que tengo una posible pregunta simple, que no puedo encontrar la respuesta.

Estoy escribiendo un VBScript que se moverá en una subcarpeta de una carpeta a otra. Cuando se mueve quiero anexar la fecha en el nombre de las subcarpetas. Tengo todo funcionando, excepto que no puedo averiguar cómo convertir la fecha a una cadena, por lo que puede ser añadido al nombre de la carpeta.

curDate =  Month(Date) + "_" + Day(Date) + "_" + Year(Date) + "_" + Time

If  fs.FolderExists(rsltFldrPath) Then

'Grab folder and Subfolders
Set fldr = fs.GetFolder(rsltFldrPath)
Set subFldr = fldr.SubFolders

For each folder in subFldr
    moveTo = archFldrPath + "\" +folder.name + curDate
    fs.MoveFolder folder, moveTo
Next
End If

Cualquier ayuda es muy apreciada.
Gracias!

InformationsquelleAutor user856354 | 2011-07-22

2 Comentarios

  1. 4

    El operador de concatenación de cadenas en VBScript es «&», por lo que una solución rápida sería:

    >> curDate =  Month(Date) & "_" & Day(Date) & "_" & Year(Date) & "_" & Time
    >> WScript.Echo curDate
    >>
    7_22_2011_5:32:55 PM

    Si se especifica el exacta resultado deseado, estoy dispuesto a proponer una mejor manera de lograr su objetivo.

    • Hm…bueno, mi objetivo principal es tener una carpeta llamada «Resultados» Para terminar siendo llamado «Results_Month_Day_Year_Time» Así que cuando me muevo que no hay otra posible los archivos que va a sobrescribir.
    • Lo que sobre el espacio después de «Resultados»? ¿Quieres que la PM/AM? Si el día y el mes cero collar?
  2. 2

    Ekkehard.Horners respuesta no trabajo como el Tiempo que necesita ser reestructurado para quitar los dos puntos (:) Carpetas no puede tener dos puntos.

    Trate;

    curDate =  Month(Date) & "_" & Day(Date) & "_" & Year(Date) & "_" & Time
    
    Replace(CurDate,":","-")

    Estoy seguro de que hay un más sucinta respuesta, sino que también sirven de relleno no debería ser un problema ya que los caracteres de subrayado se niega duplicado posibilidades.

    Quería comentar, pero no tienen suficiente rep.

Dejar respuesta

Please enter your comment!
Please enter your name here