Como faço para contar os arquivos dentro de um drive? Explo:

 

msgbox Contaarquivos("C:")

 

Retornaria = "12000" que corresponde a quantidade de arquivos que possua no Drive C

Inclue referencia ao FSO...

 

 

Se quiser, implementa o tratamento de erros...

 

Não costumo dar codigo pronto assim, mas tenho esse pronto, então está ai...

 

Abraços...

Tentei usar

Private Sub Form_Load()
    MsgBox ContaArquivos("C:")
End Sub

 

 

 

 

Private Function funContaArquivos(strPastaOrigem As String) As Long
  'Cria instância do FSO
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolderOrigem = objFSO.GetFolder(strPastaOrigem)
  Set objFoldersSubOrig = objFolderOrigem.SubFolders
  'Para cada pasta na coleção de subpastas da pasta origem
  For Each objFolder In objFoldersSubOrig
    'Chama recursivo enquanto tiver subpasta
    funContaArquivos = funContaArquivos(objFolder.Path)
    'Para cada arquivo na coleção de arquivos da pasta
    For Each objFile In objFolder.Files
      funContaArquivos = funContaArquivos + 1
    Next
  Next
End Function

 

Private Sub Form_Load()
 MsgBox funContaArquivos("U:")
End Sub

 

 

 

Nunca tinha tentado ler toda a unidade, sempre usei esse codigo para ler apenas uma pasta e suas subpastas, mas hoje testei o codigo para ler todo o driver C:, e encontrei o mesmo erro de "Permission Denied"

 

Depurando o codigo, encontrei o seguinte: Executa normalmente em todas as pastas do sistema. O erro está quando tenta ler a pasta System Volume Information. Parece que o sistema (windows) nao permite acessar esta pasta...

 

Não sei o que está provocando esse erro... se voce descobrir, ou se alguem souber, me avisa que tambem nao sei o que está acontecendo

 

Flw

 

Option Explicit
Dim tFlcnt As Long
Dim FSO As New FileSystemObject
Dim fd As Scripting.Folder
Sub CountFiles(dDrive As String)
    On Error Resume Next
    tFlcnt = tFlcnt + FSO.GetFolder(dDrive).Files.Count
    For Each fd In FSO.GetFolder(dDrive).SubFolders
        If Right(fd.Path, 1) = "" Then
            CountFiles fd.Path & fd.Name
        Else
            CountFiles fd.ParentFolder & "" & fd.Name
        End If
    Next
End Sub
Private Sub Form_Load()
    Call CountFiles("C:")
    MsgBox "O drive C: tem " & tFlcnt & " arquivos!"
End Sub