[Resolvido] Comando Kill

[cajr1505 0]

Boa tarde a todos,

 

Estou a alguns dias pesquisando sobre isso e não encontro nada. Então irei relatar o meu problema para vê se vcs conseguem me ajudar.

 

Minha empresa está precisando ter um programa de limpeza via rede

 

Então eu comecei a desenvolver o programa

A tela dele é assim:

 

 

O código dele é esse aki:

 

Private Sub cmdadd_Click()

Item:

For i = 0 To lstmaq.ListCount - 1

If lstmaq.Selected(i) Then lstsel.AddItem lstmaq.List(i): lstmaq.RemoveItem (i): GoTo Item

Next

End Sub

 

Private Sub cmddel_Click()

Item:

For i = 0 To lstsel.ListCount - 1

If lstsel.Selected(i) Then lstmaq.AddItem lstsel.List(i): lstsel.RemoveItem (i): GoTo Item

Next

End Sub

 

Private Sub cmdlimp1_Click()

lstmaq.Clear

End Sub

 

Private Sub cmdlimp2_Click()

lstsel.Clear

End Sub

 

Private Sub cmdlimpeza_Click()

Dim a As String

Dim b As String

a = lstmaq.Selected("\\pa116")

b = "\c$\Arquivos de programas\Altitude\Altitude uCI 7.1\Logs\Altitude uAgent Windows\"

Kill a & "\c$\Arquivos de programas\Altitude\Altitude uCI 7.1\Logs\Altitude uAgent Windows\*.*"

End Sub

 

Private Sub cmdlistar_Click()

Dim sTemp As String

Shell ("cmd.exe /c net view > C:\Arq.txt")

MsgBox "Lista Gerada Com Sucesso"

lstmaq.Clear

Open "C:\Arq.txt" For Input As #1

While Not EOF(1)

Line Input #1, sTemp

lstmaq.AddItem sTemp

Wend

Close #1

MsgBox "Fim da Listagem"

End Sub

 

O meu problema é o que está em negrito, eu não consigo criar um comando que varra o listbox e vá juntando com o diretório e dps com o kill para poder fazer a limpeza.

 

Se alguém puder me ajudar.

 

Agradeço desde já

[scorpio 7]

Acho que é algo assim que você quer

Dim i as integer
For i = 0 to ListBox.ListCount -1
    MsgBox(ListBox.List(i))
    'Kill(ListBoxArquivos.List(i))
Next

[cajr1505 0]

Eu tentei fazer dessa forma:

 

Private Sub cmdlimpeza_Click()

Dim i As Integer

For i = 0 To lstsel.ListCount - 1

MsgBox (lstsel.List(i))

Kill (lstsel.List(i) + "\c$\Arquivos de programas\Altitude\Altitude uCI 7.1\Logs\Altitude uAgent Windows")

Next

End Sub

 

Mas não funcionou, tentei adaptar ao seu código scorpio mas não funcionou, você consegue me dar uma luz?

[scorpio 7]

O que exatamente não funcionou?

[cajr1505 0]

Cara, quando ele adicionava os itens na listbox da direita estava indo com uma grande quantidade de espaço em branco após o nome do computador. por isso não tinha funcionado desse jeito que mostrei aí. Aí eu adicionei o comando RTrim na seguinte parte do código:

 

Private Sub cmdadd_Click()

Item:

For i = 0 To lstmaq.ListCount - 1

If lstmaq.Selected(i) Then lstsel.AddItem lstmaq.List(i): lstmaq.RemoveItem (i): GoTo Item

 

Next

End Sub

 

 

Para que quando ele adicionasse sumisse os espaços.

 

Aí rodou perfeitamente.

 

Vlw pela ajuda. Obrigado.