ESCREVER NO CMD COM VB.NET

THIAGOMANZ 07/04/2012 09:39:36
#399294

Pessoal
Estou fazendo o seguinte codigo para varrer um pen drive e apagar determinado arquivo... porem e caso haja dezenas de pastas uma dentro da outra no pen drive como faço para varrer dentro de todas? tenho que fazer na mão verificando se existe pastas dentro daquela pasta atraves de um loop ate nao encontrar mais pastas ou tem alguma funçao pronta p isso no framework?

If cmb_drive.Text <> [Ô][Ô] Then
Dim di As New DirectoryInfo(cmb_drive.Text.Substring(0, 1) & [Ô]:\[Ô])
Dim arquivoprocurado As String = [Ô]autorun.inf[Ô]

For Each arquivo As FileInfo In di.GetFiles()
If arquivo.Name = arquivoprocurado Then
Kill(arquivo.FullName)
End If
Next
For Each pasta As DirectoryInfo In di.GetDirectories()
For Each arquivos As FileInfo In pasta.GetFiles()
If arquivos.Name = arquivoprocurado Then
Kill(arquivos.FullName)
End If
Next
Next
End If

Abraços