ouvrir une form si un fichier d'une disquette est detectéRésolu

Question

Bonjour,
je souhaite que lorsque l'utilisateur clique sur un bouton, le programme verifie si le fichier ok.txt est bien sur la disquette.

+ Si ok.txt est sur la diquette, je souhaite que la form A qui contient mon bouton se ferme (le programme se ferme si le fichier est detect&#233;)
+ Si ok.txt n'est pas sur la disquette, je veux que forma A ne se ferme pas et si possible qu'une boite de dialogue affiche le message "ok pas trouv&#233;".

J'ai VB6 (je peux install&#233; VisualStudio 2005beta si vb6 est trop vieux).
Merci d'avance car je (re)debute (ca fais 2ans que je n' avais pas r&#233;install&#233; mon vb )
(pour info : je suis abscent du 13au20/08/2005 )

billmax 

J'avais trouv&#233; se code sur vbfrance, si ca peux aider 

Private Sub Command1_Click()


MsgBox detect_disquette


End Sub


Function detect_disquette() As Boolean


On Error GoTo erreur


If Dir("a:\.") <> "" Then detect_disquette = True


Exit Function


erreur:


detect_disquette = False


End Function

PCPT · Accepted Answer

salut,
pour le fait que tu n'aies pas de bouton, c'est normal, regarde, j'ai mis l'instruction au Form_Load (m&#234;me pas de bouton pour le test)


pour l'erreur 52, j'ai fait le test avec "C:", je regarde de suite


en effet, il faut g&#233;rer l'erreur ainsi :
(une Form, un CommandButton, et le fichier nomm&#233; "ok.txt")



Private Sub Command1_Click()
    On Error GoTo NODISK
    'si on trouve le fichier, on quitte. sinon, message. et si erreur, message
    If Dir("A:\ok.txt") <> "" Then Unload Me Else MsgBox "ok.txt non-trouv&#233;!", 32, "Error"
    Exit Sub 'pas de probl&#232;me, on quitte la proc&#233;dure


NODISK:
    MsgBox "PAS DE DISQUETTE DANS A:", 32, "Error"
End Sub


voil&#224; ;)
PCPT

PCPT · Answer

salut,
voici ta demande (au Form Load) : si le fichier existe, la Form se ferme. sinon, message d'erreur

Private Sub Form_Load()
   If Dir("A:	est.txt") <> "" Then Unload Me Else MsgBox "UnFound", 32, "Error"
End Sub

PCPT

cs_billmax · Answer

Merci pcpt, mais j ai encore un problème. Si il n'y a pas de disquette, j ai une erreur 52 et lorsque je compile mon projet en exe, je ne vois pas apparaitre mon bouton, c'est le programme de detection de la disquette qui est directement lancé. J'aimerai voir affiché une boite de dialogues du type "merci d'introduir la disquette". Si le fichier n'est pas trouvé, et que je clique sur mon bouton, j ai une boite dialogue vide et j ai beau mettre la disquette avec le fichier, j obtient toujours cette boite de dialogue vide. J'espere que mon projet est realisable (je le pense ;-) mais comme je debut et que mon boukin est vieuux, il faut que je fasse un tour à la FNAC!) billjcm

Private Sub Command1_Click() MsgBox detect_disquette End Sub

Private Sub Form_Load() If Dir("A: est.txt") <> "" Then Unload Me Else MsgBox "UnFound", 32, "Error" End Sub

cs_billmax · Answer

UN TRES TRES GRAND MERCI ! 
Chapeau 
Tout fonctionne comme je le voulais !
J'en serai plus le mois prochain sur la prorammation vb 
(je rentre en bts 1ann&#233;e Infomatique de gestion)

Merci pour la rapit&#233;
Cordialement
billmax
8/08/2005

Ouvrir une form si un fichier d'une disquette est detecté

4 réponses

Discussions similaires