DIRETORIO

USUARIO.EXCLUIDOS 15/04/2004 10:18:40
#20672 Resposta escolhida

como esta sua lista?
eh soh fazer algo como
kill CaminhoDeArquivoCompleto

exemplo:
kill app.path & "\Teste.txt"

USUARIO.EXCLUIDOS 15/04/2004 10:24:09
#20676

dim arquivo as string

arquivo = dir(CaminhoDoDiretorio & "\*.*,vbnormal)

do while len(arquivo)0
kill caminhododiretorio & "\" & arquivo
arquivo = dir()
loop

dir(outra pasta)

kill caminhododiretorio

USUARIO.EXCLUIDOS 15/04/2004 10:36:04
#20682

faz algo assim:

coloca um listview e um botao

Option Explicit

Const CaminhoPasta = "C:\windows"

Private Sub Command1_Click()
Dim Item As MSComctlLib.ListItem

For Each Item In ListView1.ListItems
If Item.Checked Then
Kill CaminhoPasta & "\" & Item.Text
End If
Next Item

End Sub


Private Sub Form_Load()
Dim Arquivo As String

ListView1.View = lvwReport
ListView1.ColumnHeaders.Add 1, , "ARQUIVOS"
ListView1.Checkboxes = True
ListView1.GridLines = True

Arquivo = Dir(CaminhoPasta & "\*.*", vbNormal)

Do While Len(Arquivo) 0
ListView1.ListItems.Add , , Arquivo
Arquivo = Dir()
Loop

End Sub

USUARIO.EXCLUIDOS 15/04/2004 10:37:06
#20684

e soh uma correcao

kill caminhododiretorio - ta errado - o certo seria rmdir caminhododiretorio - mas pelo visto vc nao ker remover o diretorio