Tester si un fichier est existant ou non....

Résolu
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
- 4 juil. 2010 à 11:29
Mayzz
Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
- 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 !

16 réponses

raffika
Messages postés
269
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
12 mars 2011

4 juil. 2010 à 13:57
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
3
raffika
Messages postés
269
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
12 mars 2011

4 juil. 2010 à 12:07
Salut,
File.Exists(tonfichier) renvoie True
si le fichier existe sinon il renvoie false ;)

@+
0
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 13:36
merci
0
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 13:38
ce n'est pas le code qu'il me faut
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 14:06
a voila parfait ;)
0
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 14:15
0
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 14:18
désoler j'ai regarder sa de plus près et j'ai rajouter sa

Public Function Fichier_Existe(Path As String) As Boolean
0
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 14:20
sa ne marche pas..
0
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 14:20
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
0
raffika
Messages postés
269
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
12 mars 2011

4 juil. 2010 à 14:23
A quel moment veux-tu vérifier
si le fichier existe ?
0
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 14:27
problème règlé, je suis tromper de code
0
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 17:53
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 ><"
0
raffika
Messages postés
269
Date d'inscription
dimanche 31 mai 2009
Statut
Membre
Dernière intervention
12 mars 2011

4 juil. 2010 à 18:20
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()...

@+
0
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 18:32
okay
0
cs_Anakin79
Messages postés
88
Date d'inscription
mercredi 9 juin 2010
Statut
Membre
Dernière intervention
9 novembre 2010
2
4 juil. 2010 à 18:38
0
Mayzz
Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
34
4 juil. 2010 à 21:14
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.
0