Contare il numero di file in una data Directory


Dichiarazioni API

Option Explicit

'costanti API
Public Const MAX_PATH = 260
Public Const INVALID_HANDLE_VALUE = -1
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10

'Type API
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type


Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type


'chiamate a Function API
Public Declare Function FindFirstFile Lib "kernel32.dll" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32.dll" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32.dll" (ByVal hFindFile As Long) As Long 



Modulo: 

Public Function NumFiles(sPath As String) As Long
Dim f As WIN32_FIND_DATA
Dim hFile As Long

NumFiles = 0
'Aggiungere la wildchar alla path di ricerca
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sPath = sPath & "*.*"
'comincia la numerazione file nella path specificata
hFile = FindFirstFile(sPath, f)
If hFile = INVALID_HANDLE_VALUE Then Exit Function
'Esclude le subdirectory dal conteggio
If (f.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = 0 Then     NumFiles = 1
Do While FindNextFile(hFile, f)
    If (f.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = 0 Then NumFiles = NumFiles + 1
Loop
'Chiude la ricerca file
FindClose (hFile)
End Function 


In un Form: 

Private Sub Command1_Click()
MsgBox NumFiles("c:\") & " Files in C:\"
End Sub

Testato su: Windows 98, Windows Me, Windows 2000 Professional