Tester si un fichier est existant ou non.... [Résolu]

Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
- - Dernière réponse : Mayzz
Messages postés
2859
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
26 novembre 2013
- 4 juil. 2010 à 21:14
Bonjour,

Voila, je vous explique mon problème.

Depuis maintenant 2 mois,

je créer un logiciel de connexion à une base de donné sql. Jusque là, tous la bien (grâce à ce merveilleux forum)

Je fais appelle un fichier xml du nom de config.xml pour déterminer l'adresse ip ou est placé la base de donné, le nom d'utilisateur et le mot de passe. Jusque là, tous va bien.

Et ce que j'essaye de faire est lors du démarrage du programme, il test si un fichier nommé log_config.xml est présent dans le dossier du programme qui s'appelle Atlantis.
(répertoire : C:\Documents and Settings\pandøra\Bureau\Atlantis)

Et ci il n'est pas présent, je veux qu'il m'ouvre un autre form (form4), pour le code je le code je le sais : form4.show()
Et si il le fichier est présent, je veux qu'il ne fasse rien.

Mon problème est surtout que je ne sais pas qu'elle code mettre.

Merci d'avance pour vos réponse.

PS : Pour ceux qui connaissent pandø'emu et vue que je ne cache pas qui je suis dans le répertoire de mon dossier, Ce n'est pas la pêne de me poser des question sur la sorti de la deuxième version de l'émulateur comme vous savez bien le faire sur britania ou aidemu pour certain !
Afficher la suite 

16 réponses

Meilleure réponse
Messages postés
269
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
12 mars 2011
3
Merci
Salut, expliques un peu mieux ?
La fonction que je t'ai donnée
permet de voir si un fichier existe,
avec un If par exemple :
If File.Exists("C:\Documents and Settings\pandøra\Bureau\Atlantis\log_config.xml") = true then
msgbox("Le fichier existe")
'Actions à effectuer'
else
msgbox("Le fichier n'existe pas")
'Actions à effectuer'
end if

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Commenter la réponse de raffika
Messages postés
269
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
12 mars 2011
0
Merci
Salut,
File.Exists(tonfichier) renvoie True
si le fichier existe sinon il renvoie false ;)

@+
Commenter la réponse de raffika
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
0
Merci
merci
Commenter la réponse de cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
0
Merci
ce n'est pas le code qu'il me faut
Commenter la réponse de cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
0
Merci
a voila parfait ;)
Commenter la réponse de cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
Commenter la réponse de cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
0
Merci
désoler j'ai regarder sa de plus près et j'ai rajouter sa

Public Function Fichier_Existe(Path As String) As Boolean
Commenter la réponse de cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
0
Merci
sa ne marche pas..
Commenter la réponse de cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
0
Merci
voici une partie du code :


Imports System.IO

Public Class MainForm
    Public Function Fichier_Existe(ByVal Path As String) As Boolean
        If File.Exists("C:\Documents and Settings\Elodie\Bureau\D-Emu\log_config.xml") = True Then
            msgbox("Le fichier existe")
        Else
            msgbox("Le fichier n'existe pas")
        End If
    End Function



    Private Sub MainForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Utils.Logs.Info("Fermeture du serveur")
        World.ThreadSave()

    End Sub

    Private Delegate Sub StartDelegate()

    Private Sub StartServer()

        Utils.Logs.MainFrm = Me

        If Me.InvokeRequired Then
            Me.Invoke(New StartDelegate(AddressOf StartServer))
            Exit Sub
        End If

        Try

            Utils.Logs.Info("Atlantis 0.1 démarré avec succès")


            Utils.Config.LoadConfig()
            Utils.MakeDirectories()
            Battle.LaunchTimer()
            Utils.Logs.Info("Connexion à la base de donné ...")

            If Not SQL.OpenConnexion() Then
                Utils.Logs.Erreur("Impossible de se connecter à la base de donnée !")
                Exit Sub
            End If

            Utils.Logs.Info("Chargement en cours...")
            Spells.SetupSpells()
            Items.SetupItems()
            Items.SetupPanoplies()
            NPC.SetupNPCs()
            Interactive.SetupObjects()
            Monster.SetupMonsters()
            Utils.LaunchServers()
            Maps.Init()
            World.EnableTimer()
            Utils.Logs.Info("Chargement effectuer avec succès")

        Catch ex As Exception
            Utils.Logs.Erreur("Erreur : " & ex.Message)
            Debug.Print(ex.ToString)
        End Try

    End Sub
Commenter la réponse de cs_Anakin79
Messages postés
269
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
12 mars 2011
0
Merci
A quel moment veux-tu vérifier
si le fichier existe ?
Commenter la réponse de raffika
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
0
Merci
problème règlé, je suis tromper de code
Commenter la réponse de cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
0
Merci
je me retrouve avec un nouveaux problème ><"

Voici le code :
Public Function startServer(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If File.Exists("C:\Documents and Settings\Atlentis\Bureau\Atlantis\log_config.xml") = True Then

        Else
Form3.show()


        End If
    End Function


Le seul problème est que je veux fermer la form1 sans fermer la form3.

J'ai essayer le code : Me.close mais il me ferme tous ><"
Commenter la réponse de cs_Anakin79
Messages postés
269
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
12 mars 2011
0
Merci
Salut, une seule question par topic stp.
Sinon si le test si le fichier est présent
marche merci de cliquer sur réponse acceptée...
Essaye Me.Hide()...

@+
Commenter la réponse de raffika
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
0
Merci
okay
Commenter la réponse de cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
Commenter la réponse de cs_Anakin79
Messages postés
2859
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
26 novembre 2013
16
0
Merci
Private Delegate Sub StartDelegate()

'<<= Et le End Sub ?

Private Sub StartServer()


Un sub doit se terminer par end sub...



Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Commenter la réponse de Mayzz