Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Sandroquest

Como Criar Pasta Com Data e Hora no VB6?

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×