none
Colocar a data atual em uma pasta via script RRS feed

  • Pergunta

  • Bom dia,

    Gostaria de um script para que eu possa renomear uma determinada pasta para uma data atual, ou seja, tenho a pasta c:\teste e gostaria de renomea-la para a data atual automaticamente (03/11/2006).

     

    obrigado,

     

    wagner peron

     

    sexta-feira, 3 de novembro de 2006 11:59

Respostas

  • Olá,


    Como esse é dos problemas simples, vou postar logo a solução. Note que ele não faz tratamento algum de erro e pode precisar ser modificado. Além disso, eu coloquei a última linha criando novamente a pasta c:\teste.

    Set objFSO = CreateObject("Scripting.FilesystemObject")
    Set objFolder = objFSO.GetFolder("C:\teste")
    objFolder.name = Replace(FormatDateTime(now,2),"/","-")
    objFSO.CreateFolder "C:\teste"


    --
    Vinicius Canto <scripterbratgmaildotcom>
    MVP Visual Developer - Scripting
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Blog sobre Scripting: http://viniciuscanto.blogspot.com


    sexta-feira, 3 de novembro de 2006 16:50
    Moderador

Todas as Respostas

  • Olá,


    Como esse é dos problemas simples, vou postar logo a solução. Note que ele não faz tratamento algum de erro e pode precisar ser modificado. Além disso, eu coloquei a última linha criando novamente a pasta c:\teste.

    Set objFSO = CreateObject("Scripting.FilesystemObject")
    Set objFolder = objFSO.GetFolder("C:\teste")
    objFolder.name = Replace(FormatDateTime(now,2),"/","-")
    objFSO.CreateFolder "C:\teste"


    --
    Vinicius Canto <scripterbratgmaildotcom>
    MVP Visual Developer - Scripting
    MCP Windows 2000 Server, Windows XP e SQL Server 2000
    Blog sobre Scripting: http://viniciuscanto.blogspot.com


    sexta-feira, 3 de novembro de 2006 16:50
    Moderador
  • Vinicius, obrigado pela ajuda.

     

    Peron

    sexta-feira, 3 de novembro de 2006 17:43
  • Olá,

    Ter acesso à pasta, seria copiar um arquivo nela por exemplo???

    Dá uma olhada no script abaixo, veja se te ajuda:

    Set objFSO = CreateObject("Scripting.FilesystemObject")
    Set objFolder = objFSO.GetFolder("C:\teste")
    strNome = Replace(FormatDateTime(now,2),"/","-")
    objFolder.name = strNome
    strPasta = objFolder.Path

    'COPIAR ARQUIVO NA PASTA
    strOrigem = "c:\"
    strArquivo = "teste.txt"
    objFSO.CopyFile strOrigem & strArquivo , strPasta & "\" & strArquivo, OverwriteExisting

    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    terça-feira, 7 de abril de 2009 16:39