PROCURAR ARQUIVOS PULANDO ERROS

TERUEL 13/06/2010 16:57:20
#344718
ola novamente, depois de conseguir o codigo de procurar arquivos pelo nome ou extençao me deparei com um emportuno, que é:

alguns lugares do pc estão bloqueados para serem acessados pelo programa

o código é:

mp3.DataSource = Directory.GetFiles([Ô]C:\[Ô], [Ô]*.mp3[Ô], SearchOption.AllDirectories)
Dim filemp3 = My.Computer.FileSystem.GetFileInfo(mp3.Items(0).ToString)

no caso para procurar todos os mp3 no C:\
mas quando tem um directorio bloqueado o programa da erro e para

como faço para quando tentar procurar em um directorio bloqueado o programa ignorar este directorio e continuar a busca?

agradeço a atenção
BMSOFTWARES2010 21/10/2010 13:50:57
#355619
Digite o comando [txt-color=#0000f0]on error resume next[/txt-color] antes da linha do erro ocorrido..
PEGUDO 26/10/2010 13:14:04
#355952
O Resume Next está ultrapassado no VB.NET.
Use o bloco de instrução Try... Catch.

[txt-color=#0000f0]Try[/txt-color]
mp3.DataSource = Directory.GetFiles([Ô]C:\[Ô], [Ô]*.mp3[Ô], SearchOption.AllDirectories)
Dim filemp3 = My.Computer.FileSystem.GetFileInfo(mp3.Items(0).ToString)
[txt-color=#0000f0]Catch[/txt-color]
[txt-color=#007100][ô]Aqui você coloca o código caso dê erro[/txt-color]
[txt-color=#0000f0]End try[/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar