CONTANDO ARQUIVOS

TLOUREIRO82 19/09/2012 14:00:45
#409989
Boa Tarde,

Como faço a contar quantos arquivos tenho dentro de uma pasta. Eu tenho o código abaixo mas não tá aparecendo nada... será o que está de errado


Sub calcular()

Dim File As System.IO.FileInfo
Dim s As String() = {}
Dim soma As Integer = 0
Dim FOTO as String = [Ô]C:\Dados\

For i As Integer = 0 To s.Length - 1

File = New System.IO.FileInfo(FOTO & s(i))

soma += File.Length


Next

MsgBox(soma)
JONATHANSTECKER 19/09/2012 14:09:19
#409991
Resposta escolhida
Vamos facilitar um pouco esse trabalho...
MessageBox.Show(System.IO.Directory.GetFiles([Ô]C:\Dados\[Ô], [Ô]*.*[Ô]).Length - 1)
Tópico encerrado , respostas não são mais permitidas