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

Question

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, "/", "_"), ":", "-"))