cs_H2000
Messages postés9Date d'inscriptiondimanche 9 avril 2006StatutMembreDernière intervention 7 janvier 2010
-
2 févr. 2008 à 22:52
Kevin.Ory
Messages postés840Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention 7 janvier 2009
-
3 févr. 2008 à 19:03
Bonsoir,
Je voudrais savoir si c'est possible que lors de l'activation d'un programme, il puisse voir dans un fichier si le code que le programme a est pareil que celui du fichier, par exemple si je lance mon application, il va regarder dans C:\Fichier.txt si le texte correspond bien à 12345, si dans le programme c'est aussi 12345 alors il continue à éxécuter le programme, sinon il se ferme.
Kevin.Ory
Messages postés840Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention 7 janvier 200911 3 févr. 2008 à 14:13
Salut,
Pas très .NET le code de wtor
' Lecture du contenu du fichier
Dim valeur As String = IO.File.ReadAllText("C:\fichier.txt").Trim
' Tester la valeur
If valeur <> 123456 Then Application.Exit()
Kevin.Ory
Messages postés840Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention 7 janvier 200911 3 févr. 2008 à 19:03
Ceci retourne le répertoire Windows\System32\
Dim sysPath As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
Prendre le dossier parent pour avoir le dossier Windows:
Dim winPath As String = IO.Directory.GetParent(sysPath).ToString()
N'oublie pas de cliquer sur le bouton "Réponse acceptée" lorsque tu as une réponse qui te convient
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 2 févr. 2008 à 23:21
Bonsoir,
Oui, bien sûr...
Tu as de nombreuses sources et exemples sur ce forum en ce qui concerne la lecture et l'écriture de fichiers texte ...(utilise le moteur de recherche) ...
wtor
Messages postés59Date d'inscriptiondimanche 23 novembre 2003StatutMembreDernière intervention18 mars 2011 3 févr. 2008 à 01:02
salut
voici une solution
'variable String
Dim S As String
'Ouverture de fichier en mode binaire
Open "C:\Fichier.txt" For Binary Access Read As #1
'Affecter la taille du fichier a la variable S
S = Space(LOF(1))
'Lecture du fichier
Get #1, , S
'Fermer le fichier
Close #1
enfin le contenu de ton fichier est dans S
Vous n’avez pas trouvé la réponse que vous recherchez ?