[Resolvido]Data da criação do arquivo PDF em tabela de caminho

tenho um codigo que pega o caminho de arquivos pdf no dir c:\syspen\relatórios, e o envia a uma tabela no form para uso em um visualizador de pdf

Como fazer com que essa tabela leia o meês de criacao desse arquivo?

Private Sub PreparaPDF()
Dim Arq As String
Dim Diret As String
Dim rst As Recordset

Dbs.Execute "delete from PDF"
Diret = "C:\Syspen\Relatórios\"
Set rst = Dbs.OpenRecordset("PDF")
Arq = Dir(Diret & "*.PDF", vbArchive)
Do While Arq <> ""
rst.AddNew
rst!IDPDF = Diret & Arq
rst.Update
Arq = Dir()
Loop
Me!lstPDF.Requery
If Me!lstPDF.ListCount = 0 Then

End If
End Sub

porque eu queria colocar em uma combox o filtro por data da criacao, para mostrar os arquivos por mes de criacao...


se puderem ajudar fico grato

Boa tarde, Hary

Veja se funciona assim
Private Sub PreparaPDF()
Dim Arq As String
Dim Diret As String
Dim rst As Recordset

Dbs.Execute "delete from PDF"
Diret = "C:\Syspen\Relatórios\"
Set rst = Dbs.OpenRecordset("PDF")
Arq = Dir(Diret & "*.PDF", vbArchive)
Do While Arq <> ""
rst.AddNew
rst!IDPDF = Diret & Arq
rst!CampoDataCriacao = Diret & Arq.DateCreacted
rst.Update
Arq = Dir()
Loop
Me!lstPDF.Requery
If Me!lstPDF.ListCount = 0 Then

End If
End Sub
Cumprimentos,

Caro Alexandre, cumprimentando-lhe..

O campo que criarei na tabela para receber essa informacao (dataCriacao) qual o valor dele (texto ou data)

Saudações

Qualificador invalido

rst!CampoDataCriacao = Diret & Arq.DateCreacted

Hary,
O campo DataCriacao deve ser data

Private Sub PreparaPDF()
Dim fso, Directorio As String, Pasta, Ficheiro
Dim rst As Recordset

Directorio = "C:\Syspen\Relatórios\"
Set fso = CreateObject("Scripting.FileSystemObject")
Dbs.Execute "delete from PDF"
Set rst = Dbs.OpenRecordset("PDF")
Set Pasta = fso.GetFolder(Directorio)
For Each Ficheiro In Pasta.Files
If Ficheiro Like "*.pdf" Then
rst.AddNew
rst!IDPDF = Directorio & Ficheiro.Name
rst!CampoDataCriacao = Format(Ficheiro.DateCreacted, "dd-mm-yyyy")
rst.Update
End If
Next
Me!lstPDF.Requery
If Me!lstPDF.ListCount = 0 Then
End If

Set fso = Nothing: Set Pasta = Nothing: Ficheiro = Nothing
End Sub
Cumprimentos,

Caro alexandre...
O objeto nao aceita essa propriedade ou método

rst!DataCriacao = Format(Ficheiro.DateCreacted, "dd-mm-yyyy")


o campo na tabela é DataCriacao

rst!DataCriacao = Format(Ficheiro.DateCreacted, "dd-mm-yyyy")


Estava errado o nome DataCreacted

é Created (de criacao)

Pois é, enganei-me

Coloque DateCreated em vez de DateCreacted
Cumprimentos,

Esta gravando a data...

mas esta dando erro na ultima linha:

Set fso = Nothing: Set Pasta = Nothing: Ficheiro = Nothing

A variavel do objeto ou a variavel do bloco Wich nao foi definida...

Coloque só Set fso = Nothing: Set Pasta = Nothing
Cumprimentos,

É isso ai amigão...
Obrigado pela ajuda e pelo tempo...

Saudações e um ótimo final de semana

Fique com Deus

Agora amigão.. uma pergunta..

Veja bem isso nao é imprescindivel.. mas irei perguntar...

Atraves dessas informacoes gravadas na tabela..
é possivel um codigo ao clicar de um botao que remeta ao diretorio apagando o arquivo selecionado previamente na tabela?

Saudações

Utilize

fso.DeleteFile EnderecoENomeDoFicheiro

onde aplico isso amigão?

Agora tem de trabalhar o código.
Se tem mais que um ficheiro na tabela, tem de criar maneira de poder listar e escolher qual quer apagar.
Pode fazer caixa de listagem e ao clicar em determinado item, elimina o ficheiro indicado.
É utilizar a imaginação.

ok.. tentarei isso, mas nao hoje.. qualquer duvida coloco um topico sobre isso

Grato

Caro Alexandre.. estou tentando a deleção do arquivo..
Fiz a lst box baseda na tabela do codigo acima..
no duplo click

Private Sub lstPDF_DblClick(Cancel As Integer)
Dim Linha As Integer
Dim fso, Directorio As String, Pasta, Ficheiro

Linha = Me.lstPDF.ListIndex

If Selecionado = True Then
fso.DeleteFile (Linha)
End If
End Sub

Mas creio que esta errado

Poderia me ajudar com isso?

Grato

Hary,

Na caixa de listagem em que coluna está armazenado o caminho e o nome do ficheiro a apagar?

Coluna 0

Veja se funciona. Quando trabalhamos nos próprios objectos podemos confirmar a execução.


Dim Item, fso

Set fso = CreateObject("Scripting.FileSystemObject")
For Each Item In Me.lstPDF.ItemsSelected
fso.Delete Me.lstPDF.Column(0, Item)
Next

Set fso = Nothing

Cumprimentos,

O objeto nao aceita essa propriedade ou método..

Dim Item, fso

Set fso = CreateObject("Scripting.FileSystemObject")
For Each Item In Me.lstPDF.ItemsSelected
fso.Delete Me.lstPDF.Column(0, Item)
Next

Set fso = Nothing


Este texto em vermelho está com a grafia correta?

Grato

Parece-me estar. Se lstPDF for o nome da caixa de listagem, deve funcionar.
Caso contrário, carregue para se ver.

ao pousar o mouse encima da linha aparece a linha selecionada.. esta certo..
esta selecionando
mas diz que o objeto nao suporta essa propriedade ou metodo

fso.Delete Me.lstPDF.Column(0, Item)

Coloque fso.DeleteFile Me.lstPDF.Column(0, Item)

O arquivo nao foi localizado

Caro alexandre

esta apagando.. mas da esse erro...
clico a primeira vez. nao acontece nada
na segunda.. da esse erro?

Talver um requery?

Apaga, mas o arquivo ainda permanece na tabela...

Creio que apaga no primeiro clique duplo...
mas o caminho ainda continua na tabela..

Talvez um deleteRecord junto

Que acha?

Tem a certeza que a coluna 0 tem o endereço completo do ficheiro?

Amigao...
esta apagando...

so que ainda continua o caminho na tabela...

o erro esta dando, porque ele nao apagou o caminho na tabela, e eu cliquei novamente...

como o arquivo ja havia sido deletado...
ele deu esse erro...

Temos que deletar o registro da tabela juntamente com o arquivo...

Ah, agora percebi.
Claro, Não estava a perceber. Depois de apagar o ficheiro deve-o apagar da tabela e actualiza a lista de ficheiros.