none
Criar pasta para backup de arquivos com data e hora do sistema! RRS feed

  • Pergunta

  • ola

    gostaria de uma ajuda nesse codigo para copiar arquivos para pasta criada com hora e data do sitema!

    bom esse mini codigo cria uma pasta chamada "CopiasBK" sendo que e criada uma subpasta com hora e data do sistema.

    so que porem nao consigo fazer como que os arquivos que eu quero que seja copiada para dentro dessa pasta com data e hora pois pela logica nao tem como eu saber a hora que a pasta vai ser criada

    Codigo

     Dim fso As New FileSystemObject
        Private Sub Copiar_Click(sender As Object, e As EventArgs) Handles Copiar.Click
            Directory.CreateDirectory("C:\CopiaBk\")
            fso.CreateFolder("C:\CopiaBK\" & Replace(Replace(Now, "/", "_"), ":", "-"))


    sexta-feira, 19 de julho de 2013 00:04

Respostas

  • Ola,

    Antes de criar a pasta, guarda em uma variável, assim você vai saber o nome da pasta:

    Dim Pasta as String = "C:\CopiaBK\" & Replace(Replace(Now, "/", "_"), ":", "-")
    fso.CreateFolder(Pasta)

    Msgbox "Pasta criada: " & Pasta

    Agora você sabe o nome da Pasta, esta na variável...

    Abraços

    • Sugerido como Resposta Danilo Peres terça-feira, 8 de outubro de 2013 17:02
    • Marcado como Resposta Giovani Cr segunda-feira, 14 de outubro de 2013 18:03
    terça-feira, 8 de outubro de 2013 17:02