Como Criar Pasta Com Data e Hora no VB6?

[Sandroquest]

Boa Galera!!!

Sou iniciante no VB6, e estou com algumas dúvidas??

Preciso fazer um sistema de Backup, mas que rode automaticamente e cada hora que ele rodar, deve criar a pasta com a data e hora corrente contendo os arquivos...Meu código é esse? será que algume poderia me ajudar?

Private Sub Command1_Click()

Command1.Enabled = False

Dim fso As New FileSystemObject

On Error GoTo trataerro

fso.CopyFolder Text1.Text, Text2.Text & "\", True

MsgBox "PASTA COPIADA COM SUCESSO! ", vbInformation, "Conluído"

Command1.Enabled = True

Exit Sub

trataerro:

If Err.Number = 53 Then

MsgBox "Pasta não encontrada !", vbCritical, "Erro"

Command1.Enabled = True

Else

MsgBox Err.Description & " - " & Err.Number, vbCritical, "Erro"

Command1.Enabled = True

End If

End Sub

[crudo]

use o a função Now() em conjunto com a função Replace() pois nomes de pastas e arquivos não podem conter alguns caracteres como \ por exemplo.

[Sandroquest]

Já tentei, mas dá a mensagem de erro de pasta não encontrada, poderia me mostrar um exemplo? de como usar essas propriedades?

[crudo]

Se você quer criar a pasta você tem que usar a função CreateFolder e não CopyFolder veja:

Private Sub Command1_Click()

    Dim fso As New FileSystemObject

    fso.CreateFolder "C:\" & Replace(Replace(Now, "/", "."), ":", ",")

End Sub

[Sandroquest]

Nossa...valeu...muito obrigado pela dica...Abraços