CONTANDO ARQUIVOS
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)
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)
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