COMPACTACAO DE ARQUIVOS

JPAULO101 16/05/2011 15:52:43
#374053
Boa tarde pessoal blz. Olha fiz uma pequena modificação em uma rotina com ajuda do Tecla, mais agora que ficou no formato que queria não está mais listrando os arquivos zip no grid. Segue rotina para popular o grid.

Private Sub Popular_Grid_1(Diretorio As Folder)
Dim Cont As Integer
Dim sCont As Integer
Dim tCont As Integer
Dim sRetr As String
Dim sVari As String
Dim sNome As String
Dim Extensao As String
Dim mMesAnt As String
Dim zMonta As String

mMesAnt = Format(DatePart([Ô]m[Ô], (Date - 30)), [Ô]00[Ô])

zMonta = mMesAnt & DatePart([Ô]yyyy[Ô], Date)

For Each Arq In Diretorio.files
If Arq.Name Like [Ô]*[Ô] & zMonta & [Ô].zip[Ô] Then
Cont = Cont + 1
Grid_1.Rows = Cont + 1

sNome = Arq.Name
Do Until sCont > Len(Arq.Name)
sCont = sCont + 1
sVari = Right$(sNome, sCont)
If Mid$(sVari, 1, 1) = [Ô].[Ô] Then
sRetr = Mid$(Arq.Name, 1, (Len(Arq.Name) - sCont))
Exit Do
Else
Extensao = sVari
End If
Loop

Grid_1.Row = Cont
Grid_1.Col = 0
Set Grid_1.CellPicture = MDI_Prin.iml.ListImages(7).Picture

Grid_1.TextMatrix(Cont, 1) = sRetr
Grid_1.TextMatrix(Cont, 2) = Extensao
Grid_1.TextMatrix(Cont, 3) = Format((Arq.Size / 1024), [Ô]#,##0[Ô]) & [Ô] kb[Ô]
Grid_1.TextMatrix(Cont, 4) = Format(Arq.DateLastModified, [Ô]dd/mm/yyyy hh:mm:ss[Ô])
End If
sCont = 0
tCont = 0
Next
lbl_totarq.Caption = [Ô]Arquivos para Exclusão: [Ô] & Format(Grid_1.Rows - 1, [Ô]000[Ô])
lbl_arqexc.Caption = [Ô]Serão Excluídos: [Ô] & Format(Grid_1.Rows - 1, [Ô]000[Ô]) & [Ô] Arquivos[Ô]
lbl_arqnotexc.Caption = [Ô]Não serão Excluídos: [Ô] & Format(0, [Ô]000[Ô]) & [Ô] Arquivos[Ô]
End Sub

Quando uso esse formato,lista normal
cNome = SysCodeLocal + [Ô]-[Ô] + txt_Leiturista + [Ô]-[Ô] + txt_nome.Text + [Ô]-[Ô] + Format(DTPicker.value, [Ô]ddmmyy[Ô])
3302-13860-00001013HM03-16052011
no final e a data do dia da compactação
mais quando uso o seguinte formato
cNome = SysCodeLocal + [Ô]-[Ô] + txt_Leiturista + [Ô]-[Ô] + txt_nome.Text + [Ô]-[Ô] + Format(DTPicker.value, [Ô]ddmmyy[Ô]) + Format(Time, [Ô]hhmmss[Ô])
3302-13860-00001013HM03-16052011155110
no final mostra data e hora da compactação do arquivo, mais não lista do grid.

agradeço ajuda de todos.
JPAULO101 16/05/2011 18:15:11
#374078
Ninguém
MARCELO.TREZE 16/05/2011 19:16:39
#374087 Resposta escolhida
eu acho que vc tem que depurar o código passo a passo

veja o resuldao de sNome nesta parte

sNome = Arq.Name
Do Until sCont > Len(Arq.Name)
sCont = sCont + 1
sVari = Right$(sNome, sCont)
If Mid$(sVari, 1, 1) = [Ô].[Ô] Then
sRetr = Mid$(Arq.Name, 1, (Len(Arq.Name) - sCont))
Exit Do
Else
Extensao = sVari
End If
Loop

com as duas maneiras acho que o problemas está ai.
Tópico encerrado , respostas não são mais permitidas
Voltar