Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Vérifier existence sur CD [ Divers / Débutants ] (Marneus73)

jeudi 15 mars 2007 à 22:03:11 | Vérifier existence sur CD

Marneus73

Bonjour à tous.
J'ai crée un petit prog pour vérifier l'existence d'un fichier:

Imports System.IO
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Visible = False
        Dim chemin As String = "BOB.exe"
        Dim process As New Process
        For Each disque As String In Directory.GetLogicalDrives()
            Dim D As New DriveInfo(disque)
            If D.DriveType = DriveType.CDRom Then
                Try
                    If My.Computer.FileSystem.FileExists(disque + chemin) = True Then
                        MessageBox.Show("Le Fichier existe")
                    Else
                        MessageBox.Show("Le Fichier n'existe pas")
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End If
        Next

    End Sub
End Class

Le seul probléme, c'est que je vois à l'écran successivement: "Le Fichir n'existe pas", puis "Le Fichier existe" et enfin "Le Fichir n'existe pas".
Je n'y comprends rien !? J'ai 3 messagebox de suite avec jamais la meme chose !!!

vendredi 16 mars 2007 à 08:33:13 | Re : Vérifier existence sur CD

Renfield

Administrateur CodeS-SourceS
Réponse acceptée !

tu as peut etre trois lecteurs CD ^^

après, pour voir, tu pourrais afficher le disque, dans la msgbox

Renfield
Admin CodeS-SourceS- MVP Visual Basic

vendredi 16 mars 2007 à 11:02:05 | Re : Vérifier existence sur CD

CCJ

Membre Club

Ca marche impec chez moi .
A mon avis Renfield a raison

(Oubli pas de check sa reponse si elle te conviens)

Si l'informatique été de l'alcool il y aurait des genies partout


vendredi 16 mars 2007 à 11:54:58 | Re : Vérifier existence sur CD

TroXsA

Réponse acceptée !
Bonjour

Il me semble que tu ne test pas si ton lecteur est pres ou pas !

Je me suis permis de faire une retouche sur ton code
__________________________________________________

Me.Visible = False
Dim chemin As String = "BOB.exe"
Dim process As New Process

For Each disque As String In Directory.GetLogicalDrives()
   Dim D As New DriveInfo(disque)
      If D.DriveType = DriveType.CDRom Then
         If D.IsReady = True Then
               Try
                     If File.Exists(Path.Combine(disque, chemin)) = True Then
                        MessageBox.Show("Le Fichier existe")
                     Else
                        MessageBox.Show("Le Fichier n'existe pas")
                     End If
               Catch ex As Exception
                     MsgBox(ex.Message)
         End Try
      End If
End If
Next
__________________________________________________

Cordialement
[ Lien ]
Le site qui ne parle qu'un seul langage, visual basic 2005

vendredi 16 mars 2007 à 13:11:15 | Re : Vérifier existence sur CD

Marneus73

Exactement, je n'y avait pas pensé ! J'ai bien trois lecteurs !!!
Merci !!!
Merci aussi TroXsa pour ton code !

vendredi 16 mars 2007 à 13:42:29 | Re : Vérifier existence sur CD

TroXsA


Sa fait plaisir qu'on dise merci pour une fois :), y a pas de quoi !
A bientot


[ Lien ]
Le site qui ne parle qu'un seul langage, visual basic 2005



Cette discussion est classé dans : fichier, end, existence, vérifier, existe


Répondre à ce message

Sujets en rapport avec ce message

[vba] comment vérifier si un fichier existe? [ par zujam ] tout est ds le titre.....c pour savoir si je fais un "save" ou un "saveAs" ds mon code.... Comment Vérifier si Fichier existant ? [ par ngugu ] Salut. Dans mon programme, j'ouvre des fichiers correspondant à un nom d'utilisateur.Cependant si les fichiers n'existe pas deja, ca plante (car il tr Vérifier Existence Table [ par yoarf ] Hello!Je voudrais savoir comment écrire en VB:Si table "Machin" de la base de données "Truc" existe alorsJe sais qu'il faut faire appel à un booléen q Vérifier si un fichier existe déjà [ par beastieyann ] <TD id=HB_Focus_Element vAlign=top width="100%" background="" height=250 UNSELECTAB fichier xml existence [ par agnescol ] Bonjour, Je suis en train de réaliser une application qui écrit dans un fichier xml j'arrive à déclarer mon fichier et écrire dedans mais je voudrais Vérifier si un fichier existe [ par DraaFil ] BonjourJe cherche le moin de vérifier si un fichier exsiste.Ex; if (test.txt exist) then...end ifMerci Vérifier qu'une url existe [ par sousoulebarbu ] Bonjour,J'aurais aimé savoir s'il était possible de vérifier qu'une URL existe (que le fichier http://htedytd.tf/ytry.mp3 existe) sans télécharger le fichier existe? [ par thetoto52 ] Voila je voidrais savoir comment ont peut faire pour savoir si un fichier existe a un endroit pour eviter d'avor une ereur quand on vas essayer de l'o tester l'existence d'un fichier sur un serveur FTP [ par lolo_z3 ] Bonjour, je recherche le moyen de pouvoir verifier si un fichier exist sur un serveur FTP. j'utilise VB.net 2003. si quelqu'un pouvais m'aider ca sera Mauvaise suppression d'un élément dans un fichier XML [ par pitpit44 ] Bonjour à tous,voila, je débute en VB.net et j'ai un souci. j'utilise le calendrier de DevXpress dans Visual Studio 2005, et lorsque je veux supprimer


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,250 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.