Je cherhce ce code depuis longtemps!!!

Question

J'ai fais un programme. Il me reste un code a mettre. Je vous explique:

Au début du programme ya une form qui apparraît: form_password. Elle demande d'écrire un mot de passe pour qu'ensuite elle l'écrive dans un fichier.

Si tu pars le programme une deuxième fois, il fo qu'il regarde dans le fichier si il y a dekoi d'écrit et c sa mon problème! Je c po c koi le code pour regarder dans un fichier TXT voir si il y a quelque chose d'écrit. Si il y a quelque chose dedans, tous va bien sa continu. Si il n'y a rien dedans, ooouuuppss on arrête ici et on demande.

Y a til qqun qui c comment faire ca????

Xfile
Je suis webmaster du site: http://www.tommyking.fr.st

DeAtHCrAsH · Answer

Euuuuuuuuuuuh..... Tu pourrais etre plus clair car je pige pas trop ce que tu veux exactement faire...
Tu peux regarder ce qu'il y a dedans un fichier de la maniee suivante :

Dim passtxt as String

Open "c:\monfichier.txt" For Input as #1
while not eof(1)
input, passtxt
wend
close #1

Voili voilou.... N'hesite pas si t'as des questions..
A++ et bonne prog...

DeAtH_-_CrAsH

cs_MEGATRIX · Answer

Dim CheminFichier As String
Dim a As Long
Dim Text as string
CheminFichier = "c:\Autoexec.bat"
a = FreeFile()

Open CheminFichier For Input As #a
     Text = Input(LOF(a), a)
Close #a

if Text = "" then
le fichier est écrit
else
Oupss pas écrit!
end if
'Bonne prog @++ Megatrix

cs_xfile · Answer

Merci pour le code mais ya un petit prob. C pas tous ta fait de ce que je voulais. Je t'explique:

Lorsque que je part mon prog, la form1 regarde dans un fichier text si ya de koi d'écris dedans. Si ya une lettre ou quelque d'écrit la form1 se Unload et la form2 apparaît. C tous!

Ton code marche mais quand je le aprt et que le fichier texte est vide ya un msgbox qui dit: 
L'ENTRéE DéPASSE LA FIN DI FICHIER. 

Je n'arrive pas a comprendre pkoi?

Si tu veux je peux t'envoyer la source du prog.