'déclaration API en VB6 et VBA !! => LONG Private Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" Alias "PathIsDirectoryEmptyA" (ByVal pszPath As String) As Long 'déclaration API en VB.NET !! => INTEGER Private Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" Alias "PathIsDirectoryEmptyA" (ByVal pszPath As String) As Integer 'même fonction pour les différentes versions de VB, choisir la bonne déclaration Function IsDirectoryEmpty(ByVal sDirectory As String) As Boolean ' le chemin peut (ou non) se terminer par un dernier "\" IsDirectoryEmpty = (PathIsDirectoryEmpty(sDirectory) > 0) End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.