none
RENOMEAR PASTA COM HORA E DATA ATUAL (bat) RRS feed

  • Pergunta

  •  

    Caros

     

    Tenho uma pasta no c:\TESTE, QUERO RENOMEA-LA PARA C:\071108-0950 ONDE 07 É A DATA 11 É O MES 08 É O ANO 09 É A HORA E 50 OS MINUTOS.

     

    abraços

    sexta-feira, 7 de novembro de 2008 11:48

Respostas

  • Set objFSO = CreateObject("Scripting.FileSystemObject")

    dtmThisDay = Day(Date)
    dtmThisMonth = Month(Date)
    dtmThisYear = Right(Year(Date), 2)
    dtmThisHour = Hour(Time)
    dtmThisMin = Minute(Time)

    If Len(dtmThisDay) = 1 Then dtmThisDay = "0" & dtmThisDay
    If Len(dtmThisMonth) = 1 Then dtmThisMonth = "0" & dtmThisMonth
    If Len(dtmThisHour) = 1 Then dtmThisHour = "0" & dtmThisHour
    If Len(dtmThisMin) = 1 Then dtmThisMin = "0" & dtmThisMin

    nFolder = dtmThisDay & dtmThisMonth & dtmThisYear & "-" & dtmThisHour & dtmThisMin

    WScript.Echo nFolder

    objFSO.MoveFolder "C:\teste" , "C:\" & nFolder

    terça-feira, 11 de agosto de 2009 20:19