Supprimer tous les fichiers dans un répertoire vb6

Je me demandais si quelqu'un pourrait m'aider avec un vb6 fonction qui aurait pour effet de supprimer tous les fichiers dans un répertoire (à l'exclusion des sous-répertoires).

OriginalL'auteur zSynopsis | 2009-09-23