Connaître le type du fichier

Bonjour à tous!

D'abord, est-il exact que pour connaître le type d'un fichier ( pas l'extension), il faille aller lire le registre de Windows?

Si oui, quelle est la bonne clef? J'ai écrit la fonction suivante:

Code:

---

1 2 3 4 5 6 7 8

Public Function GetFileType(ByVal cFile As String) As String Dim cKey As String = My.Computer.Registry.GetValue _ ("HKEY_CLASSES_ROOT\" & cFile, "", "ExtensionNotFound") Return cKey End Function

---

Mais elle me renvoie une chaîne vide. (Je lui envoie en paramètre le nom du fichier avec son chemin d'accès complet)

D'avance merci pour votre aide
Avec mes salutations

Salut,

Il ne faut pas le chemin du fichier (sinon images un peu la taille de la base de registres si il faut avoir tous les fichiers du poste...).

Il faut juste l'extension.

ps : utiliser regedit pour voir le résultat.

bonjour,
D'abord merci de ta réponse.
j'ai testé ma fonction en lui envoyant d'abord l'extension "txt", puis la chaîne "*.txt", elle me renvoie toujours une chaîne vide ( nothing).
Je ne suis pas du tout sûr que les paramètres envoyés à la méthode GetValue pour lire la table de registre soient les bons. Je les ai simplement récupérés de messages sur un autre Forum.
Connais-tu un site web où on peut trouver de l'information fiable sur les clefs de la base de registre Windows Vista?
A+

Autre info: J'ai testé l'exemple du help de VB dans une fonction. Elle renvoie aussi une chaîne vide. Voici son code:

Code:

---

1 2 3 4 5 6 7

Public Function GetApp() As String Dim readValue As String readValue = My.Computer.Registry.GetValue _ ("HKEY_CURRENT_USER\Software\MyApp", "Name", Nothing) Return readValue End Function

---

A part Internet, je ne suis pas connecté à un réseau. Je travaille avec un compte "utilisateur standard". Ai-je le droit d'accéder au registre en lecture?

Au lieu de *.txt ou de txt, essaye plutot .txt...;)

tout à fait, c'est ça qu'il faut faire

Parfait :ccool:
Merci beaucoup!
Avec mes sincères salutations,