Contenu du snippet
A voir également
- Format audio d'un fichier son
- Comment extracter le format(extention)d'un fichier?? ✓ - Forum - C# / .NET
- Format Date dans un fichier excel ✓ - Forum - Visual Basic 6
- Visual Basic / VB.NET : Lecture de fichiers au format real audio ou real video - CodeS SourceS - Guide
- Visual Basic / VB.NET : Trouver le format d'un fichier multimedia - CodeS SourceS - Guide
- Visual Basic / VB.NET : Listeur de fichiers au format mp3 - CodeS SourceS - Guide
- Messages postés
-
17287
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 27 septembre 2021
73Chemin = "c:\windows\media\start.wav"
If UCase(Right(Chemin, 3)) <> "WAV" Then
en plus il faut passer Freq en Long et non en Integer, ce qui donne au final:
1. Dim Freq As Long
2. Dim Chemin As String
3. Dim a As Integer
4.
5. Chemin = "c:\windows\media\start.wav"
6.
7. If UCase(Right(Chemin, 3)) <> "WAV" Then
8. MsgBox "Ce n'est pas un Fichier .Wav ", vbCritical + 4096, "Attention!"
9. Exit Sub
10. End If
11.
12. a=FreeFile
13. Open Chemin For Binary As #a
14. Get #a, 25, Freq
15. Close #a
16.
17. MsgBox Chemin & " Fréquence Audio " & Freq & " Hz", vbInformation + 4096, "Information"
voila
- Messages postés
-
17287
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 27 septembre 2021
73il vaudrais mieux ajouter :
Dim a as Integer
a = FreeFile
une bonne habitude a prendre que de ne pas utiiser des descripteurs de fichier en dur...
Il faut remplacer le #a par #1.
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.