oui oui, je sais pour le registre...
c clair que c'est mieux, mais c'était le coter astuces du code que je voulait mettre en avant, je suis sur que personne n'a pensser a renommer un fichier pour faire un "autorun" de logiciel !!
C'est sur que si quelqu'un voulait utiliser ce code pour un programme "commerciale" vaut mieux qu'il le passe dans le registre, mais bon...
Je sais que vaut mieux mettre dans le base de registre, mais c'est tellement plus simple (et exclusif) de mettre sa par détection de fichier, que je n'ai pu résister.
Pour ce qui est de la geston d'erreur, j'ai essayer de faire un truc vraiment tout simple.
Au début j'en avais mis pour bloquer les erreurs mais je les ai supprimer quand g vu que sa fonctionnant très bien sans.
Honnêtement moi, pour des petit trucs comme ça j'utiliserait SaveSetting() et GetSetting() qui créer une clé de ton prog dans la base de registre.
Pour le reste? fait attention à la gestion d'erreur :
- Si ton fichier n'existe pas.
- S'il est en lecture seul.
- ?
un simple :
On Error GoTo Err_TXT
If Dir(App.Path & "/info.txt") = "info.txt" Then
?
c clair que c'est mieux, mais c'était le coter astuces du code que je voulait mettre en avant, je suis sur que personne n'a pensser a renommer un fichier pour faire un "autorun" de logiciel !!
C'est sur que si quelqu'un voulait utiliser ce code pour un programme "commerciale" vaut mieux qu'il le passe dans le registre, mais bon...
pour inscrire une clé qui dit que ton messge doit s'afficher:
SaveSetting App.ProductName, "Bienvenu", "Vérif", "Vrai"
ou pas s'afficher:
SaveSetting App.ProductName, "Bienvenu", "Vérif", "Faux"
et pour tester:
If GetSetting(App.ProductName, "Bienvenu", "Vérif") = Vrai Then
. . .
End If
c'est vraiment une fonction pratique sans risque d'erreur et plus pro :-)... essai ça en vaux la peine :-)
A Peluche.
Pour ce qui est de la geston d'erreur, j'ai essayer de faire un truc vraiment tout simple.
Au début j'en avais mis pour bloquer les erreurs mais je les ai supprimer quand g vu que sa fonctionnant très bien sans.
Pour le reste? fait attention à la gestion d'erreur :
- Si ton fichier n'existe pas.
- S'il est en lecture seul.
- ?
un simple :
On Error GoTo Err_TXT
If Dir(App.Path & "/info.txt") = "info.txt" Then
?
Résoud ce problême
A+
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.