tetedemul
Messages postés47Date d'inscriptionvendredi 16 avril 2004StatutMembreDernière intervention 4 janvier 2006
-
25 mai 2004 à 14:31
tetedemul
Messages postés47Date d'inscriptionvendredi 16 avril 2004StatutMembreDernière intervention 4 janvier 2006
-
26 mai 2004 à 20:55
Bonjour, je crée un prog d'edition de tags mp3. Voici la fonction pour ecrire les tags:
Dim chiffre As Integer, texte As String, wdata As String
chiffre = FreeFile
If Dir(Fichier) <> "" Then
Open Fichier For Binary As #chiffre
texte = Space(LOF(chiffre))
Get #chiffre, LOF(chiffre) - 127, texte
wdata = "TAG" & espace(Titre, 30) & espace(Artiste, 30) & espace(Album, 30) & espace(Annee, 4) & espace(Commentaire, 30) & "ÿ"
If Mid(texte, 1, 3) = "TAG" Then
:question) Put #chiffre, LOF(chiffre) - 127, wdata
Else
Put #chiffre, LOF(chiffre), wdata
Close #chiffre
End If
end if
Il me signale une erreur au niveau du point d'interrogation:
"chemin d'accès incorrect"
tetedemul
Messages postés47Date d'inscriptionvendredi 16 avril 2004StatutMembreDernière intervention 4 janvier 2006 26 mai 2004 à 15:23
MErci Renfield pour ton truc (en fait renfield t trop fort j'ai vu tes sources tu dechires).
Et merci surtout à toi rene38, en effet, j'avais copié les fichiers depuis un cd pour tester mon prog et ils etaient en lecture seule. Tout marche maintenant. Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
tetedemul
Messages postés47Date d'inscriptionvendredi 16 avril 2004StatutMembreDernière intervention 4 janvier 2006 26 mai 2004 à 17:26
En fait apres test, quand je veux modifier un tag, ca marche, mais si je reclique dessus, il me dit erreur à :
SetAttr Fichier, Vbnormal
L'erreur est: Fichier deja ouvert.
Comment faire?
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 26 mai 2004 à 20:36
If Mid(texte, 1, 3) = "TAG" Then
Put #chiffre, LOF(chiffre) - 127, wdata
Close #chiffre '<- ton fichier restait ouvert dans ce cas
Else
Put #chiffre, LOF(chiffre), wdata
Close #chiffre
End If
end if
ou bien
If Mid(texte, 1, 3) = "TAG" Then
Put #chiffre, LOF(chiffre) - 127, wdata
Else
Put #chiffre, LOF(chiffre), wdata
End If
Close #chiffre '<- ferme le fichier dans les 2 cas
end if