CRIAR PASTA COM DATA DO SISTEMA!
olá gostaria de saber como crio uma pasta com data atual do sistema
[Ô]DateAndTime.Now[Ô]
Replace [Ô]/[Ô], [Ô]-[Ô]
[Ô]DateAndTime.Now[Ô]
Replace [Ô]/[Ô], [Ô]-[Ô]
nao era essa mas deu certo pra mim para pasta backup vem com data e hora!!
Dim fso As New FileSystemObject
Private Sub Command1_Click()
Dim fso As New FileSystemObject
fso.CreateFolder [Ô]C:\[Ô] & Replace(Replace(Now, [Ô]/[Ô], [Ô].[Ô]), [Ô]:[Ô], [Ô],[Ô])
End Sub
*****************************************************
agora nao sei como faço para copiar os arquivos para pasta criado com data e hora
Dim fso As New FileSystemObject
Private Sub Command1_Click()
Dim fso As New FileSystemObject
fso.CreateFolder [Ô]C:\[Ô] & Replace(Replace(Now, [Ô]/[Ô], [Ô].[Ô]), [Ô]:[Ô], [Ô],[Ô])
End Sub
*****************************************************
agora nao sei como faço para copiar os arquivos para pasta criado com data e hora
Eu diria para em vez de usar o replace usar
DateTime.Now.ToString([Ô]dd-MM-yyyy[Ô])
DateTime.Now.ToString([Ô]dd-MM-yyyy[Ô])
Agora nao sei como copiar o arquiuvo para dentro da pasta criado com a data e hora do sistema
Faça seu login para responder