none
Utuliser FileSystem.FileExists RRS feed

  • Question

  • Bonjour,

    Je me demande commer vérifier l'exsistence d'un fichier qui est dans le

     FolderBrowserDialog1.SelectedPath

    Je veux vérifier que level.dat exsiste dans le dossier que l'utulisateur a fourni. Le code du bouton "choisir"

     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Me.FolderBrowserDialog1.Description = "Choissisez le dossier extrait..."
            Me.FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyDocuments
            Me.FolderBrowserDialog1.ShowNewFolderButton = False
    
            If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                TextBox1.Text = FolderBrowserDialog1.SelectedPath
            Else
                TextBox1.Text = "Rien n'a été selectionné!"
    
            End If
    
        End Function

    Merci de votre aide!

    samedi 2 août 2014 22:31

Réponses

  • Bonjour,

    Voici la solution a ton problème :

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim open As New FolderBrowserDialog
            open.Description = "Choissisez le dossier extrait..."
            open.RootFolder = Environment.SpecialFolder.MyDocuments
            open.ShowNewFolderButton = False
            If open.ShowDialog = Windows.Forms.DialogResult.OK Then
                If My.Computer.FileSystem.FileExists(open.SelectedPath & "//level.dat") Then
                    TextBox1.Text = open.SelectedPath
                Else
                    TextBox1.Text = "Rien n'a été selectionné!"
                End If
            End If
        End Sub

    cordialement,

    dimanche 3 août 2014 05:46